1 files changed, 44 insertions, 0 deletions
diff --git a/src/D3_extract_int.F b/src/D3_extract_int.F
new file mode 100644
index 0000000..3bb617a
--- /dev/null
+++ b/src/D3_extract_int.F
@@ -0,0 +1,44 @@
+
+#include "cctk.h"
+
+      MODULE D3_extract_int
+
+c     ------------------------------------------------------------------
+
+      INTERFACE
+
+      SUBROUTINE D3_extract(cctkGH,do_ADMmass,do_momentum,do_spin,igrid,
+     &        origin,myproc,
+     &        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
+      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