diff options
author | diener <diener@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-06-25 10:49:33 +0000 |
---|---|---|
committer | diener <diener@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-06-25 10:49:33 +0000 |
commit | 91853ef68b64448bc7d902de45084407b7e18b77 (patch) | |
tree | adbee6c75dd08604b3965d55ac5c6f71abfd180a /src/D3_to_D2_int.F | |
parent | 652aa94bcb7dbfc9d755dc6fc9bc8f06a6eba167 (diff) |
Changed assumed shape arrays into explicitly declared arrays to make
the code run on seaborg (it was segmentation faulting before). This
included passing the nx, ny, and nz of gridfunctions into the subroutines.
Also made sure that the interfaces for the subroutine calls agree with the
actual subroutines.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@79 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
Diffstat (limited to 'src/D3_to_D2_int.F')
-rw-r--r-- | src/D3_to_D2_int.F | 32 |
1 files changed, 18 insertions, 14 deletions
diff --git a/src/D3_to_D2_int.F b/src/D3_to_D2_int.F index db013a2..4aeef0a 100644 --- a/src/D3_to_D2_int.F +++ b/src/D3_to_D2_int.F @@ -11,7 +11,7 @@ c ------------------------------------------------------------------ & Psi_power,origin,myproc,interpolation_operator,interpolation_order, & Dx,Dy,Dz,Psi, & g00,gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz, - & x,y,z,eta,Nt,Np,theta,phi,Psis,g00s,gxxs,gxys, + & x,y,z,eta,Nt,Np,nx,ny,nz,theta,phi,Psis,g00s,gxxs,gxys, & gxzs,gyys,gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs,dgyys,dgyzs, & dgzzs,ADMmass_int1,ADMmass_int2, & momentum_int1,momentum_int2,momentum_int3, @@ -22,26 +22,30 @@ c ------------------------------------------------------------------ INTEGER,INTENT(IN) :: & conformal_state,myproc,Psi_power CCTK_INT, INTENT(IN) :: - & Nt,Np,do_momentum,do_spin,interpolation_order - INTEGER :: - & do_ADMmass(2) + & Nt,Np,nx,ny,nz,do_momentum,do_spin,interpolation_order CCTK_REAL,INTENT(IN) :: & origin(3),Dx,Dy,Dz,eta - CCTK_REAL,INTENT(IN),DIMENSION(:,:,:) :: + CCTK_REAL,INTENT(IN),DIMENSION(Nt) :: theta + CCTK_REAL,INTENT(IN),DIMENSION(Np) :: phi + CCTK_REAL,INTENT(IN),DIMENSION(nx) :: x + CCTK_REAL,INTENT(IN),DIMENSION(ny) :: y + CCTK_REAL,INTENT(IN),DIMENSION(nz) :: z + CCTK_REAL,INTENT(IN),DIMENSION(nx,ny,nz) :: & Psi,g00,gxx,gxy,gxz,gyy,gyz,gzz, & hxx,hxy,hxz,hyy,hyz,hzz - CCTK_REAL,INTENT(IN),DIMENSION(:) :: - & x,y,z,theta,phi - CCTK_REAL,INTENT(OUT),DIMENSION(:,:) :: - & Psis,g00s,gxxs,gxys,gxzs,gyys,gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs, - & dgyys,dgyzs,dgzzs,ADMmass_int1,ADMmass_int2, - & momentum_int1,momentum_int2,momentum_int3, - & spin_int1,spin_int2,spin_int3 - CCTK_REAL,INTENT(INOUT),DIMENSION(:,:,:) :: - & Extract_temp3d + INTEGER,INTENT(IN) :: do_ADMmass(2) CCTK_STRING,INTENT(IN) :: & interpolation_operator + CCTK_REAL,INTENT(INOUT),DIMENSION(nx,ny,nz) :: + & Extract_temp3d + + CCTK_REAL,INTENT(OUT),DIMENSION(Nt,Np) :: + & Psis,g00s,gxxs,gxys,gxzs,gyys, + & gyzs,gzzs,dPsis,dgxxs,dgxys,dgxzs,dgyys,dgyzs,dgzzs, + & ADMmass_int1,ADMmass_int2, + & momentum_int1,momentum_int2,momentum_int3, + & spin_int1,spin_int2,spin_int3 END SUBROUTINE END INTERFACE |