diff options
Diffstat (limited to 'src/D2_extract_int.F')
-rw-r--r-- | src/D2_extract_int.F | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/src/D2_extract_int.F b/src/D2_extract_int.F new file mode 100644 index 0000000..43f6906 --- /dev/null +++ b/src/D2_extract_int.F @@ -0,0 +1,42 @@ + +#include "cctk.h" + + MODULE D2_extract_int + +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, + & do_ADMmass,ADMmass_int1,ADMmass_int2, + & do_momentum,momentum_int1,momentum_int2,momentum_int3, + & do_spin,spin_int1,spin_int2,spin_int3, + & mass,rsch,Qodd,Qeven,ADMmass,momentum,spin,dtaudt) + + IMPLICIT NONE + INTEGER,INTENT(IN) :: + & 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, + & ADMmass_int1, ADMmass_int2, + & momentum_int1,momentum_int2,momentum_int3, + & spin_int1,spin_int2,spin_int3 + CCTK_REAL,INTENT(OUT) :: + & ADMmass(2),mass,rsch,Qodd(:,:,:),Qeven(:,:,:),dtaudt, + & momentum(3),spin(3) + END SUBROUTINE + + END INTERFACE + + END MODULE D2_extract_int + + |