diff options
| author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-04-19 22:28:39 +0000 |
|---|---|---|
| committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-04-19 22:28:39 +0000 |
| commit | 1ee240a4812668fedc902d14182344e42fd56c09 (patch) | |
| tree | babf12fc4eb60237747676ebcab2dbce0551c99a /src/spin_integrand3D_int.F | |
| parent | d10b53eb95acb7f525653c5f477ff8483f9b22fa (diff) | |
Removing warnings
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@13 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/spin_integrand3D_int.F')
| -rw-r--r-- | src/spin_integrand3D_int.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/spin_integrand3D_int.F b/src/spin_integrand3D_int.F index cb2a1ca..1a31c78 100644 --- a/src/spin_integrand3D_int.F +++ b/src/spin_integrand3D_int.F @@ -7,7 +7,7 @@ c ------------------------------------------------------------------ INTERFACE - SUBROUTINE spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx, + SUBROUTINE spin_integrand3D(origin,x,y,z,gxx, & gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,spin_int, & Psi,Psi_power) @@ -15,7 +15,7 @@ c ------------------------------------------------------------------ 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) :: |