diff options
Diffstat (limited to 'src/spin_integrand3D.F')
| -rw-r--r-- | src/spin_integrand3D.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/spin_integrand3D.F b/src/spin_integrand3D.F index 3f1afc3..cf617d8 100644 --- a/src/spin_integrand3D.F +++ b/src/spin_integrand3D.F @@ -3,7 +3,7 @@ c ======================================================================== - SUBROUTINE spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy,gxz, + SUBROUTINE spin_integrand3D(origin,x,y,z,gxx,gxy,gxz, & gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, & spin_int,Psi,Psi_power) @@ -21,7 +21,7 @@ c Input variables INTEGER,INTENT(IN) :: & Psi_power CCTK_REAL,INTENT(IN) :: - & Dx,Dy,Dz,origin(3) + & origin(3) CCTK_REAL,DIMENSION(:),INTENT(IN) :: & x,y,z CCTK_REAL,DIMENSION(:,:,:),INTENT(IN) :: |