1 files changed, 33 insertions, 0 deletions
diff --git a/src/hyperslab.F90 b/src/hyperslab.F90
new file mode 100644
index 0000000..e540cb2
--- /dev/null
+++ b/src/hyperslab.F90
@@ -0,0 +1,33 @@
+! $Header$
+
+#include "cctk.h"
+
+module hyperslab
+  implicit none
+  public
+  
+  interface
+     
+     subroutine hyperslab_fillhyperslab (ierr, cctkgh, target_proc, &
+          vindex, vtimelevel, &
+          hdim, global_startpoint, directions, lengths, downsample, &
+          nhdata, hdata, hsize)
+       implicit none
+       integer      ierr
+       CCTK_POINTER cctkgh
+       integer      target_proc
+       integer      vindex
+       integer      vtimelevel
+       integer      hdim
+       integer      global_startpoint(*) ! vdim
+       integer      directions(*) ! vdim
+       integer      lengths(hdim)
+       integer      downsample(hdim)
+       integer      nhdata
+       CCTK_REAL    hdata(*)
+       integer      hsize(hdim)
+     end subroutine hyperslab_fillhyperslab
+     
+  end interface
+  
+end module hyperslab