#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,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,
     &        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,interpolation_order
      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