chore: import upstream snapshot with attribution
This commit is contained in:
+17
@@ -0,0 +1,17 @@
|
||||
#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
|
||||
Reference in New Issue
Block a user