diff options
author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-05-17 00:30:46 +0000 |
---|---|---|
committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2002-05-17 00:30:46 +0000 |
commit | e2d3b0c557cfa6ea935b3879704ae5ba06d2e88f (patch) | |
tree | ed263122a21dcdf2ad34f7cf579b5d442ab63bc7 /src/D3_extract_int.F | |
parent | b210693255c232021d65d99a23cb3e66041f770e (diff) |
Work with a physical metric
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@54 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/D3_extract_int.F')
-rw-r--r-- | src/D3_extract_int.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F index 357f995..1d7244a 100644 --- a/src/D3_extract_int.F +++ b/src/D3_extract_int.F @@ -7,7 +7,7 @@ c ------------------------------------------------------------------ INTERFACE - SUBROUTINE D3_extract(cctkGH,do_ADMmass,do_momentum,do_spin,igrid, + SUBROUTINE D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin,igrid, & origin,myproc,interpolation_order, & Nt,Np,all_modes,l,m,x,y,z,Dx,Dy,Dz,Psi_power,Psi, & g00,gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, @@ -19,7 +19,7 @@ c ------------------------------------------------------------------ CCTK_POINTER :: cctkGH INTEGER,INTENT(IN) :: - & igrid,l,m,Psi_power,myproc + & conformal_state,igrid,l,m,Psi_power,myproc CCTK_INT,INTENT(IN) :: & Nt,Np,all_modes,do_momentum,do_spin,interpolation_order INTEGER,INTENT(IN) :: |