diff options
Diffstat (limited to 'src/D2_extract_int.F')
-rw-r--r-- | src/D2_extract_int.F | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/src/D2_extract_int.F b/src/D2_extract_int.F index 43f6906..58a264d 100644 --- a/src/D2_extract_int.F +++ b/src/D2_extract_int.F @@ -7,8 +7,8 @@ c ------------------------------------------------------------------ INTERFACE - SUBROUTINE D2_extract(eta,igrid,Nt,Np,theta,phi,all_modes,l,m,g00,g11, - & g12,g13,g22,g23,g33,dg22,dg23,dg33, + SUBROUTINE D2_extract(eta,igrid,Nt,Np,theta,phi,all_modes,l,m, + & g00,g11,g12,g13,g22,g23,g33,dg22,dg23,dg33, & do_ADMmass,ADMmass_int1,ADMmass_int2, & do_momentum,momentum_int1,momentum_int2,momentum_int3, & do_spin,spin_int1,spin_int2,spin_int3, @@ -19,19 +19,21 @@ c ------------------------------------------------------------------ & igrid,l,m CCTK_INT,INTENT(IN) :: & Nt,Np,all_modes,do_momentum,do_spin - INTEGER,INTENT(IN) :: - & do_ADMmass(2) - CCTK_REAL,INTENT(IN) :: - & eta - CCTK_REAL,INTENT(IN),DIMENSION (:) :: - & theta,phi - CCTK_REAL,INTENT(IN),DIMENSION (:,:) :: - & g00,g11,g12,g13,g22,g23,g33,dg22,dg23,dg33, + INTEGER,INTENT(IN) :: do_ADMmass(2) + CCTK_REAL,INTENT(IN) :: eta + CCTK_REAL,INTENT(IN),DIMENSION (Nt) :: theta + CCTK_REAL,INTENT(IN),DIMENSION (Np) :: phi + CCTK_REAL,INTENT(IN),DIMENSION (Nt,Np) :: + & g00,g12,g13,g23,dg23, & ADMmass_int1, ADMmass_int2, & momentum_int1,momentum_int2,momentum_int3, & spin_int1,spin_int2,spin_int3 + + CCTK_REAL,INTENT(INOUT),DIMENSION (Nt,Np) :: + & g11,g22,g33,dg22,dg33 + CCTK_REAL,INTENT(OUT) :: - & ADMmass(2),mass,rsch,Qodd(:,:,:),Qeven(:,:,:),dtaudt, + & ADMmass(2),mass,rsch,Qodd(:,2:,0:),Qeven(:,2:,0:),dtaudt, & momentum(3),spin(3) END SUBROUTINE |