


















































































































 


































































































































































 






























































































































































































 



















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































      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
      INTEGER*4,INTENT(IN) ::
     &     Nt,Np,all_modes,do_momentum,do_spin
      INTEGER,INTENT(IN) :: do_ADMmass(2)
      REAL*8,INTENT(IN) :: eta
      REAL*8,INTENT(IN),DIMENSION (Nt) :: theta
      REAL*8,INTENT(IN),DIMENSION (Np) :: phi
      REAL*8,INTENT(IN),DIMENSION (Nt,Np) :: 
     &     g00,g12,g13,g23,dg23,
     &     ADMmass_int1, ADMmass_int2,
     &     momentum_int1,momentum_int2,momentum_int3,
     &     spin_int1,spin_int2,spin_int3

      REAL*8,INTENT(INOUT),DIMENSION (Nt,Np) ::
     &     g11,g22,g33,dg22,dg33

      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 D2_extract_int


