#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