Remove unused files.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@7 b716e942-a2de-43ad-8f52-f3dfe468e4e7

2 files changed, 0 insertions, 122 deletions

diff --git a/src/hyperslab.F90 b/src/hyperslab.F90
deleted file mode 100644
index e540cb2..0000000
--- a/src/hyperslab.F90
+++ /dev/null
@@ -1,33 +0,0 @@
-! $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
diff --git a/src/hyperslab.c b/src/hyperslab.c
deleted file mode 100644
index 8f03fd4..0000000
--- a/src/hyperslab.c
+++ /dev/null
@@ -1,89 +0,0 @@
-/* $Header$ */
-
-#include <assert.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "cctk.h"
-#include "cctk_Parameters.h"
-
-#include "Hyperslab.h"
-
-#if 0
-int Hyperslab_GetHyperslab (const cGH *GH,
-			    int target_proc,
-			    int vindex,
-			    int vtimelvl,
-                            int hdim,
-                            const int global_startpoint [/*vdim*/],
-                            const int directions [/*vdim*/],
-                            const int lengths [/*hdim*/],
-                            const int downsample_ [/*hdim*/],
-                            void **hdata,
-			    int hsize [/*hdim*/]);
-#endif
-
-int Hyperslab_FillHyperslab (const cGH *cctkGH,
-			     int target_proc,
-			     int vindex,
-			     int vtimelevel,
-			     int hdim,
-			     const int global_startpoint [/*vdim*/],
-			     const int directions [/*vdim*/],
-			     const int lengths [/*hdim*/],
-			     const int downsample [/*hdim*/],
-			     int nhdata,
-			     void *hdata,
-			     int hsize [/*hdim*/])
-{
-  void *myhdata;
-  int mynhdata;
-  int vtype;
-  int vtypesize;
-  int d;
-  int ierr;
-  myhdata = 0;
-  ierr = Hyperslab_GetHyperslab
-    (cctkGH, target_proc, vindex, vtimelevel, hdim,
-     global_startpoint, directions, lengths, downsample,
-     &myhdata, hsize);
-  if (myhdata) {
-    mynhdata = 1;
-    for (d=0; d<hdim; ++d) mynhdata *= hsize[d];
-    if (mynhdata > nhdata) {
-      CCTK_WARN (1, "Not enough space in hdata array");
-      mynhdata = nhdata;
-    }
-    assert (hdata);
-    vtype = CCTK_VarTypeI(vindex);
-    assert (vtype>=0);
-    vtypesize = CCTK_VarTypeSize(vtype);
-    assert (vtypesize>0);
-    memcpy (hdata, myhdata, mynhdata * vtypesize);
-    free (myhdata);
-  }
-  return ierr;
-}
-
-
-
-void CCTK_FCALL CCTK_FNAME(Hyperslab_FillHyperslab)
-     (int *ierr,
-      const cGH *cctkGH,
-      const int *target_proc,
-      const int *vindex,
-      const int *vtimelevel,
-      const int *hdim,
-      const int global_startpoint [/*vdim*/],
-      const int directions [/*vdim*/],
-      const int lengths [/*hdim*/],
-      const int downsample [/*hdim*/],
-      const int *nhdata,
-      void *hdata,
-      int hsize [/*hdim*/])
-{
-  *ierr = Hyperslab_FillHyperslab
-    (cctkGH, *target_proc, *vindex, *vtimelevel, *hdim,
-     global_startpoint, directions, lengths, downsample,
-     *nhdata, hdata, hsize);
-}