diff options
Diffstat (limited to 'src/D3_to_D2_int.F')
-rw-r--r-- | src/D3_to_D2_int.F | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/src/D3_to_D2_int.F b/src/D3_to_D2_int.F new file mode 100644 index 0000000..297e22e --- /dev/null +++ b/src/D3_to_D2_int.F @@ -0,0 +1,45 @@ + +#include "cctk.h" + + MODULE D3_to_D2_int + +c ------------------------------------------------------------------ + + INTERFACE + + SUBROUTINE D3_to_D2(cctkGH,do_ADMmass,do_momentum,do_spin, + & Psi_power,origin,myproc,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, + & 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,Extract_temp3d) + + IMPLICIT NONE + CCTK_POINTER :: cctkGH + INTEGER,INTENT(IN) :: + & myproc,Psi_power + CCTK_INT, INTENT(IN) :: + & Nt,Np,do_momentum,do_spin + INTEGER :: + & do_ADMmass(2) + CCTK_REAL,INTENT(IN) :: + & origin(3),Dx,Dy,Dz,eta + CCTK_REAL,INTENT(IN),DIMENSION(:,:,:) :: + & 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 + END SUBROUTINE + + END INTERFACE + + END MODULE D3_to_D2_int |