#include "cctk.h"

      MODULE D3_extract_int

c     ------------------------------------------------------------------

      INTERFACE

      SUBROUTINE D3_extract(cctkGH,do_ADMmass,do_momentum,do_spin,igrid,
     &        origin,myproc,interpolation_order,
     &        Nt,Np,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)

      IMPLICIT NONE

      CCTK_POINTER :: cctkGH

      INTEGER,INTENT(IN) :: 
     &     igrid,l,m,Psi_power,myproc
      CCTK_INT,INTENT(IN) ::
     &     Nt,Np,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(:,:,:) :: 
     &     Psi,g00,gxx,gxy,gxz,gyy,gyz,gzz,
     &     hxx,hxy,hxz,hyy,hyz,hzz
      CCTK_REAL,INTENT(INOUT),DIMENSION(:,:,:) ::
     &     Extract_Temp3d
      CCTK_REAL,INTENT(OUT) :: 
     &     ADMmass(2),mass,rsch,Qodd(:,:,:),Qeven(:,:,:),dtaudt,
     &     momentum(3),spin(3)

      END SUBROUTINE
         
      END INTERFACE

      END MODULE D3_extract_int