diff options
Diffstat (limited to 'src/ADMmass_integrand3D_int.F')
| -rw-r--r-- | src/ADMmass_integrand3D_int.F | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/ADMmass_integrand3D_int.F b/src/ADMmass_integrand3D_int.F new file mode 100644 index 0000000..c103f55 --- /dev/null +++ b/src/ADMmass_integrand3D_int.F @@ -0,0 +1,27 @@ + +#include "cctk.h" + + MODULE ADMmass_integrand3D_int + +c ------------------------------------------------------------------ + + INTERFACE + + SUBROUTINE ADMmass_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy, + & gxz,gyy,gyz,gzz,ADMmass_int,Psi,Psi_power) + IMPLICIT NONE + INTEGER,INTENT(IN) :: + & Psi_power + CCTK_REAL,INTENT(IN) :: + & Dx,Dy,Dz,origin(3) + CCTK_REAL,DIMENSION(:),INTENT(IN) :: + & x,y,z + CCTK_REAL,DIMENSION(:,:,:),INTENT(IN) :: + & gxx,gxy,gxz,gyy,gyz,gzz,Psi + CCTK_REAL,DIMENSION(:,:,:),INTENT(OUT) :: + & ADMmass_int + END SUBROUTINE ADMmass_integrand3D + + END INTERFACE + + END MODULE ADMmass_integrand3D_int |