


















































































































 


































































































































































 






























































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































      MODULE D3_extract_int

c

      INTERFACE

      SUBROUTINE D3_extract(cctkGH,conformal_state,do_ADMmass,do_momentu
     &m,do_spin,igrid,
     &        origin,myproc,interpolation_operator,interpolation_order,
     &        Nt,Np,nx,ny,nz,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

      integer*8 :: cctkGH

      INTEGER*4,INTENT(IN) :: 
     &     conformal_state
      INTEGER,INTENT(IN) :: 
     &     igrid,l,m,Psi_power,myproc
      INTEGER*4,INTENT(IN) ::
     &     Nt,Np,nx,ny,nz,all_modes,do_momentum,do_spin,interpolation_or
     &der
      INTEGER,INTENT(IN) ::
     &     do_ADMmass(2)
      REAL*8,INTENT(IN) :: 
     &     origin(3),Dx,Dy,Dz,eta
      REAL*8,INTENT(IN),DIMENSION(nx,ny,nz) :: 
     &     Psi,g00,gxx,gxy,gxz,gyy,gyz,gzz,
     &     hxx,hxy,hxz,hyy,hyz,hzz
      REAL*8,INTENT(IN),DIMENSION(nx) :: x
      REAL*8,INTENT(IN),DIMENSION(ny) :: y
      REAL*8,INTENT(IN),DIMENSION(nz) :: z
      REAL*8,INTENT(INOUT),DIMENSION(nx,ny,nz) ::
     &     Extract_Temp3d
      integer*8,INTENT(IN) ::
     &     interpolation_operator

      REAL*8,INTENT(OUT) :: 
     &     ADMmass(2),mass,rsch,Qodd(:,2:,0:),Qeven(:,2:,0:),dtaudt,
     &     momentum(3),spin(3)


      END SUBROUTINE
         
      END INTERFACE

      END MODULE D3_extract_int
