aboutsummaryrefslogtreecommitdiff
path: root/src/D3_extract_int.F
diff options
context:
space:
mode:
authortradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>2003-07-07 15:21:25 +0000
committertradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>2003-07-07 15:21:25 +0000
commit9ba88a4e7c228c29823c9ec36b1fecc4edfa0642 (patch)
treea6c2a6d77372fd6ace4f27b043af823a69a58ea2 /src/D3_extract_int.F
parent91853ef68b64448bc7d902de45084407b7e18b77 (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/D3_extract_int.F')
-rw-r--r--src/D3_extract_int.F4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F
index e00b321..3be6450 100644
--- a/src/D3_extract_int.F
+++ b/src/D3_extract_int.F
@@ -18,8 +18,10 @@ c ------------------------------------------------------------------
CCTK_POINTER :: cctkGH
+ CCTK_INT,INTENT(IN) ::
+ & conformal_state
INTEGER,INTENT(IN) ::
- & conformal_state,igrid,l,m,Psi_power,myproc
+ & igrid,l,m,Psi_power,myproc
CCTK_INT,INTENT(IN) ::
& Nt,Np,nx,ny,nz,all_modes,do_momentum,do_spin,interpolation_order
INTEGER,INTENT(IN) ::