mirror of
https://github.com/safishamsi/graphify.git
synced 2026-07-12 18:37:12 +00:00
Safi
53da14333e
Co-Authored-By: FatahChan <FatahChan@users.noreply.github.com> Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
18 lines
256 B
Fortran
18 lines
256 B
Fortran
#define NDIM 3
|
|
|
|
module shapes
|
|
#ifdef MPI
|
|
use mpi
|
|
#endif
|
|
implicit none
|
|
|
|
contains
|
|
|
|
subroutine compute_volume(side, vol)
|
|
real, intent(in) :: side
|
|
real, intent(out) :: vol
|
|
vol = side ** NDIM
|
|
end subroutine compute_volume
|
|
|
|
end module shapes
|