diff options
Diffstat (limited to 'src/D3_to_D2.F')
-rw-r--r-- | src/D3_to_D2.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index 74c3cdb..c9ccf5e 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -328,7 +328,7 @@ c Calculate integrands for spin c ----------------------------- IF (do_spin==1) THEN - CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z, + CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & Extract_temp3d,Psi,Psi_power) CALL CCTK_SyncGroup(cctkGH,"extract::temps") @@ -344,7 +344,7 @@ c ----------------------------- $ CCTK_VARIABLE_REAL $ ) - CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z, + CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & Extract_temp3d,Psi,Psi_power) CALL CCTK_SyncGroup(cctkGH,"extract::temps") @@ -361,7 +361,7 @@ c ----------------------------- $ ) - CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z, + CALL spin_integrand3D(origin,x,y,z, & gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & Extract_temp3d,Psi,Psi_power) CALL CCTK_SyncGroup(cctkGH,"extract::temps") |