Make it also work with less than three dimensions.

Create a Fortran wrapper.
Create an interface for the Fortran wrapper.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/Slab/trunk@14 2e825fa2-fb71-486d-8b7f-a5ff3f0f6cb8

1 files changed, 33 insertions, 0 deletions

diff --git a/src/slab.inc b/src/slab.inc
new file mode 100644
index 0000000..a0f9bdc
--- /dev/null
+++ b/src/slab.inc
@@ -0,0 +1,33 @@
+! -*-F90-*-
+! $Header$
+
+interface
+   subroutine Slab_Transfer (ierr, cctkGH, dim, &
+        src_gsh, src_lbnd, src_lsh, &
+        src_lbbox, src_ubbox, src_nghostzones, &
+        src_off, src_str, src_len, &
+        dst_gsh, dst_lbnd, dst_lsh, &
+        dst_lbbox, dst_ubbox, dst_nghostzones, &
+        dst_off, dst_str, dst_len, &
+        xpose, flip, &
+        options, &
+        srctype, srcptr, &
+        dsttype, dstptr)
+     implicit none
+     integer ierr
+     CCTK_POINTER cctkGH 
+     integer dim
+     integer src_gsh, src_lbnd, src_lsh
+     integer src_lbbox, src_ubbox, src_nghostzones
+     integer src_off, src_str, src_len
+     integer dst_gsh, dst_lbnd, dst_lsh
+     integer dst_lbbox, dst_ubbox, dst_nghostzones
+     integer dst_off, dst_str, dst_len
+     integer xpose, flip
+     integer options
+     integer srctype
+     CCTK_POINTER srcptr
+     integer dsttype
+     CCTK_POINTER dstptr
+   end subroutine Slab_Transfer
+end interface