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_extract_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_extract_int.F')
-rw-r--r-- | src/D3_extract_int.F | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F index ce14b37..e00b321 100644 --- a/src/D3_extract_int.F +++ b/src/D3_extract_int.F @@ -9,7 +9,7 @@ c ------------------------------------------------------------------ SUBROUTINE D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentum,do_spin,igrid, & origin,myproc,interpolation_operator,interpolation_order, - & Nt,Np,all_modes,l,m,x,y,z,Dx,Dy,Dz,Psi_power,Psi, + & Nt,Np,nx,ny,nz,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, & eta,ADMmass,momentum,spin,mass,rsch,Qodd,Qeven, & Extract_temp3d,dtaudt) @@ -19,26 +19,28 @@ 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) :: - & conformal_state,Nt,Np,all_modes,do_momentum,do_spin,interpolation_order + & Nt,Np,nx,ny,nz,all_modes,do_momentum,do_spin,interpolation_order INTEGER,INTENT(IN) :: & do_ADMmass(2) CCTK_REAL,INTENT(IN) :: & origin(3),Dx,Dy,Dz,eta - CCTK_REAL,INTENT(IN),DIMENSION(:) :: - & x,y,z - CCTK_REAL,INTENT(IN),DIMENSION(:,:,:) :: + 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(INOUT),DIMENSION(:,:,:) :: + CCTK_REAL,INTENT(IN),DIMENSION(nx) :: x + CCTK_REAL,INTENT(IN),DIMENSION(ny) :: y + CCTK_REAL,INTENT(IN),DIMENSION(nz) :: z + CCTK_REAL,INTENT(INOUT),DIMENSION(nx,ny,nz) :: & Extract_Temp3d - CCTK_REAL,INTENT(OUT) :: - & ADMmass(2),mass,rsch,Qodd(:,:,:),Qeven(:,:,:),dtaudt, - & momentum(3),spin(3) CCTK_STRING,INTENT(IN) :: & interpolation_operator + CCTK_REAL,INTENT(OUT) :: + & ADMmass(2),mass,rsch,Qodd(:,2:,0:),Qeven(:,2:,0:),dtaudt, + & momentum(3),spin(3) + END SUBROUTINE |