diff options
Diffstat (limited to 'src/ADMmass_integrand3D_int.F')
| -rw-r--r-- | src/ADMmass_integrand3D_int.F | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/ADMmass_integrand3D_int.F b/src/ADMmass_integrand3D_int.F index b9f98d3..d502128 100644 --- a/src/ADMmass_integrand3D_int.F +++ b/src/ADMmass_integrand3D_int.F @@ -10,8 +10,10 @@ c ------------------------------------------------------------------ SUBROUTINE ADMmass_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy, & gxz,gyy,gyz,gzz,ADMmass_int,Psi,Psi_power,conformal_state) IMPLICIT NONE + CCTK_INT,INTENT(IN) :: + & conformal_state INTEGER,INTENT(IN) :: - & Psi_power,conformal_state + & Psi_power CCTK_REAL,INTENT(IN) :: & Dx,Dy,Dz,origin(3) CCTK_REAL,DIMENSION(:),INTENT(IN) :: |