diff options
author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-07-07 15:21:25 +0000 |
---|---|---|
committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-07-07 15:21:25 +0000 |
commit | 9ba88a4e7c228c29823c9ec36b1fecc4edfa0642 (patch) | |
tree | a6c2a6d77372fd6ace4f27b043af823a69a58ea2 /src/ADMmass_integrand3D_int.F | |
parent | 91853ef68b64448bc7d902de45084407b7e18b77 (diff) |
conformal_state must be passed as CCTK_INT rather than int.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@80 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
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) :: |