Remove ancient unused code

8 files changed, 6 insertions, 882 deletions

diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/param.ccl b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/param.ccl
index 430c2f2..91075c9 100644
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/param.ccl
+++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/param.ccl
@@ -4,38 +4,29 @@
 
 # $Header$ 
 
-private:    
-
-KEYWORD FDscheme "Type of finite differencing to use"
-{                                                     
-  "2nd order centered macro"      :: "centered 2nd order implemented with macros"          
-  "4th order centered macro"      :: "centered 4th order implemented with macros"
-} "2nd order centered macro"
-
 restricted:
 
-CCTK_INT  stencil_width "stencil width used near boundary"
+CCTK_INT  stencil_width "stencil width used near boundary DEPRECATED"
 {
   -1:* :: "outgoing characteristic speed > 0, default of -1 is intentionally invalid"
 } -1
 
-CCTK_INT  stencil_width_x "stencil width used near boundary"
+CCTK_INT  stencil_width_x "stencil width used near boundary DEPRECATED"
 {
   -1:* :: "outgoing characteristic speed > 0, default of -1 is intentionally invalid"
 } -1
 
-CCTK_INT  stencil_width_y "stencil width used near boundary"
+CCTK_INT  stencil_width_y "stencil width used near boundary DEPRECATED"
 {
   -1:* :: "outgoing characteristic speed > 0, default of -1 is intentionally invalid"
 } -1
 
-CCTK_INT  stencil_width_z "stencil width used near boundary"
+CCTK_INT  stencil_width_z "stencil width used near boundary DEPRECATED"
 {
   -1:* :: "outgoing characteristic speed > 0, default of -1 is intentionally invalid"
 } -1
 
-CCTK_INT  boundary_width "width of boundary (fix later to use Cactus boundary calls)"
+CCTK_INT  boundary_width "width of boundary (fix later to use Cactus boundary calls) DEPRECATED"
 {
   -1:* :: "Any integer"
 } 1
-
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/schedule.ccl b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/schedule.ccl
index a013b00..05ca0e1 100644
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/schedule.ccl
+++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/schedule.ccl
@@ -3,16 +3,3 @@
 # author: S. Husa
 
 # $Header$ 
-
-
-
-schedule GenericFD_Startup at STARTUP          
-{                            
-  LANG: C                    
-}   "Register Banner"        
-
-# schedule GenericFD_ParamCheck at ParamCheck
-# {
-#   LANG: Fortran
-# }   "check stencil width parameters for consistency"
-
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c
index 9084f65..f23f8dc 100644
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c
+++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.c
@@ -97,20 +97,6 @@ int GenericFD_GetBoundaryWidth(cGH const * restrict const cctkGH)
   return bw;
 }
 
-/* int GenericFD_BoundaryWidthTable(cGH const * restrict const cctkGH) */
-/* { */
-/*   int nboundaryzones[6]; */
-/*   GenericFD_GetBoundaryWidth(cctkGH, nboundaryzones); */
-
-/*   int table = Util_TableCreate(0); */
-/*   if (table < 0) CCTK_WARN(0, "Could not create table"); */
-
-/*   if (Util_TableSetIntArray(table, 6, nboundaryzones, "BOUNDARY_WIDTH") < 0) */
-/*     CCTK_WARN(0, "Could not set table"); */
-/*   return table; */
-/* } */
-
-
 /* Return the array indices in imin and imax for looping over the
    interior of the grid. imin is the index of the first grid point.
    imax is the index of the last grid point plus 1.  So a loop over
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.h
index 1e4faff..fc5a375 100644
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.h
+++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/GenericFD.h
@@ -28,655 +28,14 @@
     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
                          
-#ifndef NOPRECOMPUTE
-#define PRECOMPUTE
-#endif
-
-#if defined(FD_C0) || defined(FD_C2) || defined(FD_C4) || defined(FD_C2C4)
-#define FD_SET_BY_USER
-#endif
-#ifndef FD_SET_BY_USER
-#define FD_C2
-#endif	
-
-
-#if defined(FD_C0)
-#define FD_METHOD_DESC  "FD method: replace derivatives by zero"
-#endif
-
-#if defined(FD_C2)
-#define FD_METHOD_DESC  "FD method: second order centered finite differences"
-#endif
-
-#if defined(FD_C4)
-#define FD_METHOD_DESC  "FD method: fourth order centered finite differences"
-#endif
-
-#if defined(FD_C2C4)
-#define FD_METHOD_DESC  "FD method: weighted 2nd/4th order centered finite differences"
-#endif
-
-
-
-/* utility functions  */
-#if defined(KRANC_C)
-#define string(d,f) d ## f
-#else
-#define string(d,f) d/**/f
-#endif
-
-#if defined(KRANC_C)
-#define IMAX(int1, int2) ((int1) > (int2) ? (int1) : (int2))
-#endif
-
 
 #include "MathematicaCompat.h"
 
-/* finite differencing macros */
-
-/*                                   */
-/* add method argument to shorthands */
-/*                                   */
-
-/* third derivatives */
-#define D111x(gf)  string(D111,gf)
-#define D211x(gf)  string(D211,gf)
-#define D311x(gf)  string(D311,gf)
-#define D221x(gf)  string(D221,gf)
-#define D321x(gf)  string(D321,gf)
-#define D331x(gf)  string(D331,gf)
-#define D222x(gf)  string(D222,gf)
-#define D322x(gf)  string(D322,gf)
-#define D332x(gf)  string(D332,gf)
-#define D333x(gf)  string(D333,gf)
-
-/* second derivatives */
-#define D11x(gf)  string(D11,gf)
-#define D22x(gf)  string(D22,gf)
-#define D33x(gf)  string(D33,gf)
-#define D21x(gf)  string(D21,gf)
-#define D32x(gf)  string(D32,gf)
-#define D31x(gf)  string(D31,gf)
-
-/* first derivatives                */
-#define D1x(gf)   string(D1,gf)
-#define D2x(gf)   string(D2,gf)
-#define D3x(gf)   string(D3,gf)
-
-#ifdef PRECOMPUTE
-
-/* third derivatives */
-#define D111(gf)  string(D111,gf)
-#define D211(gf)  string(D211,gf)
-#define D311(gf)  string(D311,gf)
-#define D221(gf)  string(D221,gf)
-#define D321(gf)  string(D321,gf)
-#define D331(gf)  string(D331,gf)
-#define D222(gf)  string(D222,gf)
-#define D322(gf)  string(D322,gf)
-#define D332(gf)  string(D332,gf)
-#define D333(gf)  string(D333,gf)
-
-/* second derivatives */
-#define D11(gf,i,j,k)  string(D11,gf)
-#define D22(gf,i,j,k)  string(D22,gf)
-#define D33(gf,i,j,k)  string(D33,gf)
-#define D21(gf,i,j,k)  string(D21,gf)
-#define D32(gf,i,j,k)  string(D32,gf)
-#define D31(gf,i,j,k)  string(D31,gf) 
-
-/* first derivatives                */
-#define D1(gf,i,j,k)   string(D1,gf)
-#define D2(gf,i,j,k)   string(D2,gf) 
-#define D3(gf,i,j,k)   string(D3,gf) 
-
-#else
-
-/* third derivatives */
-#define D111(gf)  D111gf(gf,i,j,k)
-#define D211(gf)  D211gf(gf,i,j,k)
-#define D311(gf)  D311gf(gf,i,j,k)
-#define D221(gf)  D221gf(gf,i,j,k)
-#define D321(gf)  D321gf(gf,i,j,k)
-#define D331(gf)  D331gf(gf,i,j,k)
-#define D222(gf)  D222gf(gf,i,j,k)
-#define D322(gf)  D322gf(gf,i,j,k)
-#define D332(gf)  D332gf(gf,i,j,k)
-#define D333(gf)  D333gf(gf,i,j,k)
-
-/* second derivatives */
-#define D11(gf,i,j,k)  D11gf(gf,i,j,k)
-#define D22(gf,i,j,k)  D22gf(gf,i,j,k)
-#define D33(gf,i,j,k)  D33gf(gf,i,j,k)
-#define D21(gf,i,j,k)  D21gf(gf,i,j,k)
-#define D32(gf,i,j,k)  D32gf(gf,i,j,k)
-#define D31(gf,i,j,k)  D31gf(gf,i,j,k)
-
-/* first derivatives                */
-#define D1(gf,i,j,k)   D1gf(gf, i,j,k)
-#define D2(gf,i,j,k)   D2gf(gf, i,j,k)
-#define D3(gf,i,j,k)   D3gf(gf, i,j,k)
-
-#endif
-
-
-#ifdef FD_C0
-/* third derivatives */
-#define D111gf(gf,i,j,k)  D111_c0(gf,i,j,k)
-#define D211gf(gf,i,j,k)  D211_c0(gf,i,j,k)
-#define D311gf(gf,i,j,k)  D311_c0(gf,i,j,k)
-#define D221gf(gf,i,j,k)  D221_c0(gf,i,j,k)
-#define D321gf(gf,i,j,k)  D321_c0(gf,i,j,k)
-#define D331gf(gf,i,j,k)  D331_c0(gf,i,j,k)
-#define D222gf(gf,i,j,k)  D222_c0(gf,i,j,k)
-#define D322gf(gf,i,j,k)  D322_c0(gf,i,j,k)
-#define D332gf(gf,i,j,k)  D332_c0(gf,i,j,k)
-#define D333gf(gf,i,j,k)  D333_c0(gf,i,j,k)
-
-/* second derivatives */
-#define D11gf(gf,i,j,k)  D11_c0(gf,i,j,k)
-#define D22gf(gf,i,j,k)  D22_c0(gf,i,j,k)
-#define D33gf(gf,i,j,k)  D33_c0(gf,i,j,k)
-#define D21gf(gf,i,j,k)  D21_c0(gf,i,j,k)
-#define D32gf(gf,i,j,k)  D32_c0(gf,i,j,k)
-#define D31gf(gf,i,j,k)  D31_c0(gf,i,j,k)
-
-/* first derivatives                */
-#define D1gf(gf,i,j,k)   D1_c0(gf, i,j,k)
-#define D2gf(gf,i,j,k)   D2_c0(gf, i,j,k)
-#define D3gf(gf,i,j,k)   D3_c0(gf, i,j,k)
-#endif
-
-
-
-#ifdef FD_C2
-/* third derivatives */
-#define D111gf(gf,i,j,k)  D111_c2(gf,i,j,k)
-#define D211gf(gf,i,j,k)  D211_c2(gf,i,j,k)
-#define D311gf(gf,i,j,k)  D311_c2(gf,i,j,k)
-#define D221gf(gf,i,j,k)  D221_c2(gf,i,j,k)
-#define D321gf(gf,i,j,k)  D321_c2(gf,i,j,k)
-#define D331gf(gf,i,j,k)  D331_c2(gf,i,j,k)
-#define D222gf(gf,i,j,k)  D222_c2(gf,i,j,k)
-#define D322gf(gf,i,j,k)  D322_c2(gf,i,j,k)
-#define D332gf(gf,i,j,k)  D332_c2(gf,i,j,k)
-#define D333gf(gf,i,j,k)  D333_c2(gf,i,j,k)
-
-/* second derivatives */
-#define D11gf(gf,i,j,k)  D11_c2(gf,i,j,k)
-#define D22gf(gf,i,j,k)  D22_c2(gf,i,j,k)
-#define D33gf(gf,i,j,k)  D33_c2(gf,i,j,k)
-#define D21gf(gf,i,j,k)  D21_c2(gf,i,j,k)
-#define D32gf(gf,i,j,k)  D32_c2(gf,i,j,k)
-#define D31gf(gf,i,j,k)  D31_c2(gf,i,j,k)
-
-/* first derivatives                */
-#define D1gf(gf,i,j,k)   D1_c2(gf, i,j,k)
-#define D2gf(gf,i,j,k)   D2_c2(gf, i,j,k)
-#define D3gf(gf,i,j,k)   D3_c2(gf, i,j,k)
-#endif
-
-
-
-#ifdef FD_C4
-/* third derivatives */
-#define D111gf(gf,i,j,k)  D111_c4(gf,i,j,k)
-#define D211gf(gf,i,j,k)  D211_c4(gf,i,j,k)
-#define D311gf(gf,i,j,k)  D311_c4(gf,i,j,k)
-#define D221gf(gf,i,j,k)  D221_c4(gf,i,j,k)
-#define D321gf(gf,i,j,k)  D321_c4(gf,i,j,k)
-#define D331gf(gf,i,j,k)  D331_c4(gf,i,j,k)
-#define D222gf(gf,i,j,k)  D222_c4(gf,i,j,k)
-#define D322gf(gf,i,j,k)  D322_c4(gf,i,j,k)
-#define D332gf(gf,i,j,k)  D332_c4(gf,i,j,k)
-#define D333gf(gf,i,j,k)  D333_c4(gf,i,j,k)
-
-/* second derivatives */
-#define D11gf(gf,i,j,k)  D11_c4(gf,i,j,k) 
-#define D22gf(gf,i,j,k)  D22_c4(gf,i,j,k)
-#define D33gf(gf,i,j,k)  D33_c4(gf,i,j,k)
-#define D21gf(gf,i,j,k)  D21_c4(gf,i,j,k) 
-#define D32gf(gf,i,j,k)  D32_c4(gf,i,j,k) 
-#define D31gf(gf,i,j,k)  D31_c4(gf,i,j,k)
-
-/* first derivatives                */
-#define D1gf(gf,i,j,k)   D1_c4(gf, i,j,k) 
-#define D2gf(gf,i,j,k)   D2_c4(gf, i,j,k)
-#define D3gf(gf,i,j,k)   D3_c4(gf, i,j,k)
-#endif
-
-
-#ifdef FD_C2C4
-/* third derivatives */
-#define D111gf(gf,i,j,k)  D111_c2c4(gf,i,j,k)
-#define D211gf(gf,i,j,k)  D211_c2c4(gf,i,j,k)
-#define D311gf(gf,i,j,k)  D311_c2c4(gf,i,j,k)
-#define D221gf(gf,i,j,k)  D221_c2c4(gf,i,j,k)
-#define D321gf(gf,i,j,k)  D321_c2c4(gf,i,j,k)
-#define D331gf(gf,i,j,k)  D331_c2c4(gf,i,j,k)
-#define D222gf(gf,i,j,k)  D222_c2c4(gf,i,j,k)
-#define D322gf(gf,i,j,k)  D322_c2c4(gf,i,j,k)
-#define D332gf(gf,i,j,k)  D332_c2c4(gf,i,j,k)
-#define D333gf(gf,i,j,k)  D333_c2c4(gf,i,j,k)
-
-/* second derivatives */
-#define D11gf(gf,i,j,k)  D11_c2c4(gf,i,j,k)
-#define D22gf(gf,i,j,k)  D22_c2c4(gf,i,j,k)
-#define D33gf(gf,i,j,k)  D33_c2c4(gf,i,j,k)
-#define D21gf(gf,i,j,k)  D21_c2c4(gf,i,j,k)
-#define D32gf(gf,i,j,k)  D32_c2c4(gf,i,j,k)
-#define D31gf(gf,i,j,k)  D31_c2c4(gf,i,j,k)
-
-/* first derivatives                */
-#define D1gf(gf,i,j,k)   D1_c2c4(gf, i,j,k)
-#define D2gf(gf,i,j,k)   D2_c2c4(gf, i,j,k)
-#define D3gf(gf,i,j,k)   D3_c2c4(gf, i,j,k)
-#endif
-
-
-
-
-/*****************************************************/
-/*                                                   */
-/*             METHODS                               */
-/*                                                   */
-/*****************************************************/
-
-/*  c0                              */
-
-/*  set all derivatives = 0         */
-/*  for debugging and benchmarking  */
-
-/* third derivatives */
-
-#define D111_c0(gf,i,j,k)   0.
-#define D211_c0(gf,i,j,k)   0.
-#define D311_c0(gf,i,j,k)   0.
-#define D221_c0(gf,i,j,k)   0.
-#define D321_c0(gf,i,j,k)   0.
-#define D331_c0(gf,i,j,k)   0.
-#define D222_c0(gf,i,j,k)   0.
-#define D322_c0(gf,i,j,k)   0.
-#define D332_c0(gf,i,j,k)   0.
-#define D333_c0(gf,i,j,k)   0.
-
-/*  second derivatives              */
-
-#define D11_c0(gf,i,j,k)   0.
-#define D22_c0(gf,i,j,k)   0.
-#define D33_c0(gf,i,j,k)   0.
-#define D21_c0(gf,i,j,k)   0.
-#define D32_c0(gf,i,j,k)   0.
-#define D31_c0(gf,i,j,k)   0.
-
-/* first derivatives                */
-
-#define D1_c0(gf,i,j,k)    0.
-#define D2_c0(gf,i,j,k)    0.
-#define D3_c0(gf,i,j,k)    0.
-
-
-
-#ifndef KRANC_C
-
-/*  c2                  */
-/*                      */
-/*  2nd order centered  */
-/*                      */
-
-/* third derivatives, centered, 2nd order */
-
-#define D111_c2(gf,i,j,k)   ((- gf(i+2,j,k) + 2*gf(i+1,j,k) - 2*gf(i-1,j,k) + gf(i-2,j,k)) * dxi*dxi*dxi * (1.0/2.0))
-#define D211_c2(gf,i,j,k)   ((gf(i+1,j+1,k) - 2*gf(i,j+1,k) + gf(i-1,j+1,k) - gf(i+1,j-1,k) + 2*gf(i,j-1,k) - gf(i-1,j-1,k)) * dxi*dxi*dyi * (1.0/2.0))
-#define D311_c2(gf,i,j,k)   ((gf(i+1,j,k+1) - 2*gf(i,j,k+1) + gf(i-1,j,k+1) - gf(i+1,j,k-1) + 2*gf(i,j,k-1) - gf(i-1,j,k-1)) * dxi*dxi*dzi * (1.0/2.0))
-#define D221_c2(gf,i,j,k)   ((gf(i+1,j+1,k) - 2*gf(i+1,j,k) + gf(i+1,j-1,k) - gf(i-1,j+1,k) + 2*gf(i-1,j,k) - gf(i-1,j-1,k)) * dxi*dyi*dyi * (1.0/2.0))
-#define D321_c2(gf,i,j,k)   ((gf(i+1,j+1,k+1) - gf(i-1,j+1,k+1) - gf(i+1,j-1,k+1) + gf(i-1,j-1,k+1) - gf(i+1,j+1,k-1) + gf(i-1,j+1,k-1) + gf(i+1,j-1,k-1) - gf(i-1,j-1,k-1)) * dxi*dyi*dzi * (1.0/8.0))
-#define D331_c2(gf,i,j,k)   ((gf(i+1,j,k+1) - 2*gf(i+1,j,k) + gf(i+1,j,k-1) - gf(i-1,j,k+1) + 2*gf(i-1,j,k) - gf(i-1,j,k-1)) * dxi*dzi*dzi * (1.0/2.0))
-#define D222_c2(gf,i,j,k)   ((- gf(i,j+2,k) + 2*gf(i,j+1,k) - 2*gf(i,j-1,k) + gf(i,j-2,k)) * dyi*dyi*dyi * (1.0/2.0))
-#define D322_c2(gf,i,j,k)   ((gf(i,j+1,k+1) - 2*gf(i,j,k+1) + gf(i,j-1,k+1) - gf(i,j+1,k-1) + 2*gf(i,j,k-1) - gf(i,j-1,k-1)) * dyi*dyi*dzi * (1.0/2.0))
-#define D332_c2(gf,i,j,k)   ((gf(i,j+1,k+1) - 2*gf(i,j+1,k) + gf(i,j+1,k-1) - gf(i,j-1,k+1) + 2*gf(i,j-1,k) - gf(i,j-1,k-1)) * dyi*dzi*dzi * (1.0/2.0))
-#define D333_c2(gf,i,j,k)   ((- gf(i,j,k+2) + 2*gf(i,j,k+1) - 2*gf(i,j,k-1) + gf(i,j,k-2)) * dzi*dzi*dzi * (1.0/2.0))
-
-/* second derivatives, centered, 2nd order */
-
-#define D11_c2(gf,i,j,k)                         \
-	 ((   gf(i+1,j,k) \
-	 - 2.*gf(i,  j,k) \
-	 +    gf(i-1,j,k)) * dxi * dxi )
-
-#define D22_c2(gf,i,j,k)                         \
-	 ((   gf(i,j+1,k) \
-	 - 2.*gf(i,j,  k) \
-	 +    gf(i,j-1,k)) * dyi * dyi )
-
-#define D33_c2(gf,i,j,k)                         \
-	 ((   gf(i,j,k+1) \
-	 - 2.*gf(i,j,k  ) \
-	 +    gf(i,j,k-1)) * dzi * dzi )
-
-#define D21_c2(gf,i,j,k)                        \
-	 ((gf(i+1,j+1,k) \
-	 + gf(i-1,j-1,k) \
-	 - gf(i+1,j-1,k) \
-	 - gf(i-1,j+1,k)) * hdxi * hdyi )
-
-#define D32_c2(gf,i,j,k)                        \
-	 ((gf(i,j+1,k+1) \
-	 + gf(i,j-1,k-1) \
-	 - gf(i,j+1,k-1) \
-	 - gf(i,j-1,k+1)) * hdyi * hdzi )
-
-#define D31_c2(gf,i,j,k)                        \
-	 ((gf(i+1,j,k+1) \
-	 + gf(i-1,j,k-1) \
-	 - gf(i+1,j,k-1) \
-	 - gf(i-1,j,k+1)) * hdxi * hdzi )
-
-/* first derivatives, centered, 2nd order */
-
-#define D1_c2(gf,i,j,k)                       \
-	 ((gf(i+1,j,k) \
-	 - gf(i-1,j,k)) * hdxi)
-
-#define D2_c2(gf,i,j,k)                       \
-	 ((gf(i,j+1,k) \
-	 - gf(i,j-1,k)) * hdyi)
-
-#define D3_c2(gf,i,j,k)                       \
-	 ((gf(i,j,k+1) \
-	 - gf(i,j,k-1)) * hdzi)
-	
-#else
-
-
-#define D11_c2(gf,i,j,k)                         \
-	 ((   gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k)] \
-	 - 2.*gf[CCTK_GFINDEX3D(cctkGH,i,  j,k)] \
-	 +    gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k)]) * dxi * dxi )
-
-#define D22_c2(gf,i,j,k)                         \
-	 ((   gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k)] \
-	 - 2.*gf[CCTK_GFINDEX3D(cctkGH,i,j,  k)] \
-	 +    gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k)]) * dyi * dyi )
-
-#define D33_c2(gf,i,j,k)                         \
-	 ((   gf[CCTK_GFINDEX3D(cctkGH,i,j,k+1)] \
-	 - 2.*gf[CCTK_GFINDEX3D(cctkGH,i,j,k  )] \
-	 +    gf[CCTK_GFINDEX3D(cctkGH,i,j,k-1)]) * dzi * dzi )
-
-#define D21_c2(gf,i,j,k)                        \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i+1,j+1,k)] \
-	 + gf[CCTK_GFINDEX3D(cctkGH,i-1,j-1,k)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i+1,j-1,k)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i-1,j+1,k)]) * hdxi * hdyi )
-
-#define D32_c2(gf,i,j,k)                        \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k+1)] \
-	 + gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k-1)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k-1)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k+1)]) * hdyi * hdzi )
-
-#define D31_c2(gf,i,j,k)                        \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k+1)] \
-	 + gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k-1)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k-1)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k+1)]) * hdxi * hdzi )
-
-/* first derivatives, centered, 2nd order */
-
-#define D1_c2(gf,i,j,k)                       \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k)]) * hdxi)
-
-#define D2_c2(gf,i,j,k)                       \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k)]) * hdyi)
-
-#define D3_c2(gf,i,j,k)                       \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i,j,k+1)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i,j,k-1)]) * hdzi)
-
-#endif	
-
-	
-/*  c4                  */
-/*                      */
-/*  4th order centered  */
-/*                      */
-
-/* second derivatives, centered, 4th order */
-
-#ifndef KRANC_C
-
-#define D11_c4(gf,i,j,k)                    \
-  ((-       gf(i+2,j,k)			      \
-	   + 16. * gf(i+1,j,k) \
-	   - 30. * gf(i,  j,k) \
-	   + 16. * gf(i-1,j,k) \
-	   -       gf(i-2,j,k)) * dxi * dxi / 12.)
-
-
-#define D22_c4(gf,i,j,k)                    \
-	 ((-       gf(i,j+2,k) \
-	   + 16. * gf(i,j+1,k) \
-	   - 30. * gf(i,j,  k) \
-	   + 16. * gf(i,j-1,k) \
-	   -       gf(i,j-2,k)) * dyi * dyi / 12.)
-
-
-#define D33_c4(gf,i,j,k)                              \
-	 ((-       gf(i,j,k+2) \
-	   + 16. * gf(i,j,k+1) \
-	   - 30. * gf(i,j,k  ) \
-	   + 16. * gf(i,j,k-1) \
-	   -       gf(i,j,k-2)) * dzi * dzi / 12.)
-
-#define D21_c4(gf,i,j,k)                                    \
-	     ((-       gf(i+2,j+2,k) \
-               +       gf(i+2,j-2,k) \
-	       +       gf(i-2,j+2,k) \
-               -       gf(i-2,j-2,k) \
-               + 16. * gf(i+1,j+1,k) \
-    	       - 16. * gf(i+1,j-1,k) \
-	       - 16. * gf(i-1,j+1,k) \
-	       + 16. * gf(i-1,j-1,k)) * dxi * dyi / 48.)
-
-#define D31_c4(gf,i,j,k)                                    \
-             ((-       gf(i+2,j,k+2) \
-               +       gf(i+2,j,k-2) \
-               +       gf(i-2,j,k+2) \
-               -       gf(i-2,j,k-2) \
-               + 16. * gf(i+1,j,k+1) \
-               - 16. * gf(i+1,j,k-1) \
-               - 16. * gf(i-1,j,k+1) \
-               + 16. * gf(i-1,j,k-1)) * dxi * dzi / 48.)
-
-	
-#define D32_c4(gf,i,j,k)                                    \
-             ((-       gf(i,j+2,k+2) \
-               +       gf(i,j+2,k-2) \
-               +       gf(i,j-2,k+2) \
-               -       gf(i,j-2,k-2) \
-               + 16. * gf(i,j+1,k+1) \
-               - 16. * gf(i,j+1,k-1) \
-               - 16. * gf(i,j-1,k+1) \
-               + 16. * gf(i,j-1,k-1)) * dzi * dyi / 48.)
-
-
-/* first derivatives, centered, 4th order */
-
-#define D1_c4(gf,i,j,k)                            \
-       ((-      gf(i+2,j,k) \
-         + 8. * gf(i+1,j,k) \
-         - 8. * gf(i-1,j,k) \
-	 +      gf(i-2,j,k)) * (dxi / 12.))
-
-#define D2_c4(gf,i,j,k)                            \
-       ((-      gf(i,j+2,k) \
-         + 8. * gf(i,j+1,k) \
-         - 8. * gf(i,j-1,k) \
-	 +      gf(i,j-2,k)) * (dyi / 12.))
-
-#define D3_c4(gf,i,j,k)                            \
-       ((-      gf(i,j,k+2) \
-         + 8. * gf(i,j,k+1) \
-         - 8. * gf(i,j,k-1) \
-	 +      gf(i,j,k-2)) * (dzi / 12.))
-
-
-#else
-
-#define D11_c4(gf,i,j,k)                    \
-	 ((-       gf[CCTK_GFINDEX3D(cctkGH,i+2,j,k)] \
-	   + 16. * gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k)] \
-	   - 30. * gf[CCTK_GFINDEX3D(cctkGH,i,  j,k)] \
-	   + 16. * gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k)] \
-	   -       gf[CCTK_GFINDEX3D(cctkGH,i-2,j,k)]) * dxi * dxi / 12.)
-
-
-#define D22_c4(gf,i,j,k)                    \
-	 ((-       gf[CCTK_GFINDEX3D(cctkGH,i,j+2,k)] \
-	   + 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k)] \
-	   - 30. * gf[CCTK_GFINDEX3D(cctkGH,i,j,  k)] \
-	   + 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k)] \
-	   -       gf[CCTK_GFINDEX3D(cctkGH,i,j-2,k)]) * dyi * dyi / 12.)
-
-
-#define D33_c4(gf,i,j,k)                              \
-	 ((-       gf[CCTK_GFINDEX3D(cctkGH,i,j,k+2)] \
-	   + 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j,k+1)] \
-	   - 30. * gf[CCTK_GFINDEX3D(cctkGH,i,j,k  )] \
-	   + 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j,k-1)] \
-	   -       gf[CCTK_GFINDEX3D(cctkGH,i,j,k-2)]) * dzi * dzi / 12.)
-
-#define D21_c4(gf,i,j,k)                                    \
-	     ((-       gf[CCTK_GFINDEX3D(cctkGH,i+2,j+2,k)] \
-               +       gf[CCTK_GFINDEX3D(cctkGH,i+2,j-2,k)] \
-	       +       gf[CCTK_GFINDEX3D(cctkGH,i-2,j+2,k)] \
-               -       gf[CCTK_GFINDEX3D(cctkGH,i-2,j-2,k)] \
-               + 16. * gf[CCTK_GFINDEX3D(cctkGH,i+1,j+1,k)] \
-    	       - 16. * gf[CCTK_GFINDEX3D(cctkGH,i+1,j-1,k)] \
-	       - 16. * gf[CCTK_GFINDEX3D(cctkGH,i-1,j+1,k)] \
-	       + 16. * gf[CCTK_GFINDEX3D(cctkGH,i-1,j-1,k)]) * dxi * dyi / 48.)
-
-#define D31_c4(gf,i,j,k)                                    \
-             ((-       gf[CCTK_GFINDEX3D(cctkGH,i+2,j,k+2)] \
-               +       gf[CCTK_GFINDEX3D(cctkGH,i+2,j,k-2)] \
-               +       gf[CCTK_GFINDEX3D(cctkGH,i-2,j,k+2)] \
-               -       gf[CCTK_GFINDEX3D(cctkGH,i-2,j,k-2)] \
-               + 16. * gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k+1)] \
-               - 16. * gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k-1)] \
-               - 16. * gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k+1)] \
-               + 16. * gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k-1)]) * dxi * dzi / 48.)
-
-	
-#define D32_c4(gf,i,j,k)                                    \
-             ((-       gf[CCTK_GFINDEX3D(cctkGH,i,j+2,k+2)] \
-               +       gf[CCTK_GFINDEX3D(cctkGH,i,j+2,k-2)] \
-               +       gf[CCTK_GFINDEX3D(cctkGH,i,j-2,k+2)] \
-               -       gf[CCTK_GFINDEX3D(cctkGH,i,j-2,k-2)] \
-               + 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k+1)] \
-               - 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k-1)] \
-               - 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k+1)] \
-               + 16. * gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k-1)]) * dzi * dyi / 48.)
-
-
-/* first derivatives, centered, 4th order */
-
-#define D1_c4(gf,i,j,k)                            \
-       ((-      gf[CCTK_GFINDEX3D(cctkGH,i+2,j,k)] \
-         + 8. * gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k)] \
-         - 8. * gf[CCTK_GFINDEX3D(cctkGH,i-1,j,k)] \
-	 +      gf[CCTK_GFINDEX3D(cctkGH,i-2,j,k)]) * (dxi / 12.))
-
-#define D2_c4(gf,i,j,k)                            \
-       ((-      gf[CCTK_GFINDEX3D(cctkGH,i,j+2,k)] \
-         + 8. * gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k)] \
-         - 8. * gf[CCTK_GFINDEX3D(cctkGH,i,j-1,k)] \
-	 +      gf[CCTK_GFINDEX3D(cctkGH,i,j-2,k)]) * (dyi / 12.))
-
-#define D3_c4(gf,i,j,k)                            \
-       ((-      gf[CCTK_GFINDEX3D(cctkGH,i,j,k+2)] \
-         + 8. * gf[CCTK_GFINDEX3D(cctkGH,i,j,k+1)] \
-         - 8. * gf[CCTK_GFINDEX3D(cctkGH,i,j,k-1)] \
-	 +      gf[CCTK_GFINDEX3D(cctkGH,i,j,k-2)]) * (dzi / 12.))
-
-#endif
-
-/*****************************************************/
-/*                                                    */
-/*         DERIVED METHODS                            */
-/*                                                    */
-/******************************************************/
-
-
-/* blend c2 and c4 */
-/* second derivatives */
-#define D11_c2c4(gf,i,j,k) (fdweight_c2*D11_c2(gf,i,j,k) + fdweight_c4*D11_c4(gf,i,j,k))
-#define D22_c2c4(gf,i,j,k) (fdweight_c2*D22_c2(gf,i,j,k) + fdweight_c4*D22_c4(gf,i,j,k))
-#define D33_c2c4(gf,i,j,k) (fdweight_c2*D33_c2(gf,i,j,k) + fdweight_c4*D33_c4(gf,i,j,k))
-#define D21_c2c4(gf,i,j,k) (fdweight_c2*D21_c2(gf,i,j,k) + fdweight_c4*D21_c4(gf,i,j,k))
-#define D32_c2c4(gf,i,j,k) (fdweight_c2*D32_c2(gf,i,j,k) + fdweight_c4*D32_c4(gf,i,j,k))
-#define D31_c2c4(gf,i,j,k) (fdweight_c2*D31_c2(gf,i,j,k) + fdweight_c4*D31_c4(gf,i,j,k))
-
-/* first derivatives */
-#define D1_c2c4(gf,i,j,k)  (fdweight_c2*D1_c2(gf, i,j,k) + fdweight_c4*D1_c4(gf,i,j,k))
-#define D2_c2c4(gf,i,j,k)  (fdweight_c2*D2_c2(gf, i,j,k) + fdweight_c4*D2_c4(gf,i,j,k))
-#define D3_c2c4(gf,i,j,k)  (fdweight_c2*D3_c2(gf, i,j,k) + fdweight_c4*D3_c4(gf,i,j,k))
-
-
-/*****************************************************/
-/*                                                    */
-/*  Poor man's one-sided derivatives                  */
-/*                                                    */
-/******************************************************/
-
-
-#define Dplus1(gf,i,j,k)   string(Dplus1,gf)
-#define Dplus2(gf,i,j,k)   string(Dplus2,gf)
-#define Dplus3(gf,i,j,k)   string(Dplus3,gf)
-
-
-#define Dplus1gf(gf,i,j,k)   Dplus1x(gf, i,j,k)
-#define Dplus2gf(gf,i,j,k)   Dplus2x(gf, i,j,k)
-#define Dplus3gf(gf,i,j,k)   Dplus3x(gf, i,j,k)
-
-#ifdef KRANC_C
-
-#define Dplus1x(gf,i,j,k)                     \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i+1,j,k)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i,j,k)]) * dxi)
-
-#define Dplus2x(gf,i,j,k)                     \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i,j+1,k)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i,j,k)]) * dyi)
-
-#define Dplus3x(gf,i,j,k)                     \
-	 ((gf[CCTK_GFINDEX3D(cctkGH,i,j,k+1)] \
-	 - gf[CCTK_GFINDEX3D(cctkGH,i,j,k)]) * dzi)
-
-#else
-
-#define Dplus1x(gf,i,j,k)  ( ( gf(i+1, j,     k)     - gf(i,j,k) ) * dxi )
-#define Dplus2x(gf,i,j,k)  ( ( gf(i,   j + 1, k)     - gf(i,j,k) ) * dxi )
-#define Dplus3x(gf,i,j,k)  ( ( gf(i,   j,     k + 1) - gf(i,j,k) ) * dxi )
-
-#endif
-
 #ifdef KRANC_C
 int sgn(CCTK_REAL x);
 
-#define Dupwind1(gf,dir,i,j,k) ((dir * gf[CCTK_GFINDEX3D(cctkGH,i+dir,j,k)] \
-	 - dir * gf[CCTK_GFINDEX3D(cctkGH,i,j,k)]) * dxi)
-#define Dupwind2(gf,dir,i,j,k) ((dir * gf[CCTK_GFINDEX3D(cctkGH,i,j+dir,k)] \
-	 - dir * gf[CCTK_GFINDEX3D(cctkGH,i,j,k)]) * dxi)
-#define Dupwind3(gf,dir,i,j,k) ((dir * gf[CCTK_GFINDEX3D(cctkGH,i,j,k+dir)] \
-	 - dir * gf[CCTK_GFINDEX3D(cctkGH,i,j,k)]) * dxi)
-
 int GenericFD_GetBoundaryWidth(cGH const * restrict const cctkGH);
 
-/* int GenericFD_BoundaryWidthTable(cGH const * restrict const cctkGH); */
-
 void GenericFD_GetBoundaryInfo(cGH const * restrict cctkGH,
                                int const * restrict cctk_lsh,
                                int const * restrict cctk_lssh,
@@ -691,25 +50,6 @@ void GenericFD_GetBoundaryInfo(cGH const * restrict cctkGH,
 void GenericFD_AssertGroupStorage(cGH const * restrict const cctkGH, const char *calc,
                                   int ngroups, const char *group_names[]);
 
-#if 0
-/* Finite differencing near boundaries */
-
-/* The array var is to be accessed at the location
-   [i+ioff,j+joff,k+koff].  idir,jdir,kdir specify whether there is a
-   lower (dir<0), upper (dir>0), or no boundary nearby.  If a boundary
-   is in the way, the value 0 is returned instead of the array
-   content.  */
-#define CCTK_GFACCESS3D(cctkGH, var, i,j,k, ioff,joff,koff, idir,jdir,kdir) \
-  (((idir)<0 && (ioff)<0) ||                                            \
-   ((jdir)<0 && (joff)<0) ||                                            \
-   ((kdir)<0 && (koff)<0) ||                                            \
-   ((idir)>0 && (ioff)>0) ||                                            \
-   ((jdir)>0 && (joff)>0) ||                                            \
-   ((kdir)>0 && (koff)>0) ||                                            \
-   ? 0                                                                  \
-   : (var)[CCTK_GFINDEX3D((cctkGH), (i)+(ioff),(j)+(joff),(k)+(koff))])
-#endif
-
 /* Summation by parts */
 
 static inline CCTK_REAL sbp_deriv_x(int i, int j, int k, 
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/ParamCheck.F90 b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/ParamCheck.F90
deleted file mode 100644
index c2baf82..0000000
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/ParamCheck.F90
+++ /dev/null
@@ -1,96 +0,0 @@
-/*@@                                         
-   @file      GenericFD/src/ParamCheck.F90
-   @date      October 20 2004
-   @author    S. Husa                           
-   @desc                                        
-   Check consistency of parameters associated with stencil widths
-
-   $Header$                                  
-
-   @enddesc                                     
- @@*/                                           
-                                                
-/*  Copyright 2004 Sascha Husa, Ian Hinder, Christiane Lechner
-
-    This file is part of Kranc.
-
-    Kranc is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    Kranc is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with Kranc; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-*/
-
-#define KRANC_FORTRAN
-                                           
-#include "cctk.h"         
-#include "cctk_Arguments.h"
-#include "cctk_Parameters.h"
-#include "GenericFD.h"
-
-/*@@                                         
-   @routine   GenericFD_ParamCheck 
-   @date      October 20 2004
-   @author    S. Husa                           
-   @desc                     
-   Check consistency of parameters associated with stencil widths                   
-   
-   @enddesc                                     
-   @calls                                       
-   @calledby                                    
-   @history                                     
-   @endhistory                                  
- @@*/                                           
-                                                
-                                              
-
-SUBROUTINE GenericFD_ParamCheck(CCTK_ARGUMENTS)
-
-implicit none
-
-DECLARE_CCTK_ARGUMENTS
-DECLARE_CCTK_PARAMETERS
-
-if (stencil_width < 0) then
-  call CCTK_WARN(0, "stencil_width < 0  - set GenericFD::stencil_width > 0 in par file!")
-endif
-
-if ((stencil_width_x < 0).AND.(stencil_width < 0)) then
-  call CCTK_WARN(0, "stencil_width_x < 0, set GenericFD::stencil_width_x (or stencil_width) > 0!")
-endif
-
-if ((stencil_width_y < 0).AND.(stencil_width < 0)) then
-  call CCTK_WARN(0, "stencil_width_y < 0, set GenericFD::stencil_width_x (or stencil_width) > 0!")
-endif
-
-if ((stencil_width_z < 0).AND.(stencil_width < 0)) then
-  call CCTK_WARN(0, "stencil_width_z < 0, set GenericFD::stencil_width_x (or stencil_width) > 0!")
-endif
-
-
-if (stencil_width > maxval(cctk_nghostzones)) then
- call CCTK_WARN(0, "stencil_width is larger than max(cctk_nghostzones)!")
-endif
-
-if (stencil_width_x > cctk_nghostzones(1)) then
- call CCTK_WARN(0, "stencil_width is smaller than cctk_nghostzones(1)!")
-endif
-
-if (stencil_width_y > cctk_nghostzones(2)) then
- call CCTK_WARN(0, "stencil_width is smaller than cctk_nghostzones(2)!")
-endif
-
-if (stencil_width_z > cctk_nghostzones(3)) then
- call CCTK_WARN(0, "stencil_width is smaller than cctk_nghostzones(3)!")
-endif
-
-
-END SUBROUTINE GenericFD_ParamCheck
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/Startup.c b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/Startup.c
deleted file mode 100644
index 78e9915..0000000
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/Startup.c
+++ /dev/null
@@ -1,60 +0,0 @@
-/*@@                                         
-   @file      GenericFD/src/Startup.c
-   @date      June 16 2002
-   @author    S. Husa                           
-   @desc                                        
-   Register Banner - straight copy of WaveToy   
-
-   $Header$                                  
-
-   @enddesc                                     
- @@*/                                           
-                                                
-/*  Copyright 2004 Sascha Husa, Ian Hinder, Christiane Lechner
-
-    This file is part of Kranc.
-
-    Kranc is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    Kranc is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with Kranc; if not, write to the Free Software
-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-*/
-                                           
-#include "cctk.h"                           
-#include "GenericFD.h"
-
-int GenericFD_Startup(void);
-
-/*@@                                         
-   @routine   GenericFD_Startup 
-   @date      June 16 2002
-   @author    S. Husa                           
-   @desc                                        
-   
-   @enddesc                                     
-   @calls                                       
-   @calledby                                    
-   @history                                     
-   @endhistory                                  
- @@*/                                           
-                                                
-                                              
-
-int GenericFD_Startup(void)
-{                                          
-    const char *banner = "GenericFD: generic finite differencing";
-    CCTK_RegisterBanner(banner);              
-
-
-    CCTK_INFO(FD_METHOD_DESC);
-    return 0; 
- }
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/make.code.defn b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/make.code.defn
index fde3275..c9ef2f1 100644
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/make.code.defn
+++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/make.code.defn
@@ -2,8 +2,7 @@
 # $Header$
 
 # Source files in this directory
-SRCS = Startup.c GenericFD.c 
-#ParamCheck.F90
+SRCS = GenericFD.c
 
 # Subdirectories containing source files
 SUBDIRS =
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/testmacros.c b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/testmacros.c
deleted file mode 100644
index 3208ea0..0000000
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/testmacros.c
+++ /dev/null
@@ -1,23 +0,0 @@
-/* process me with something like
- *  cpp -DFD_C2 testmacros.c
- */
-
-
-#include "GenericFD.h"
-
-
-dummy =  D11loc(testfunc,i,j,k);
-
-dummy =  D11gf(testfunc,i,j,k);
-
-dummy =  D11_c2c4(testfunc,i,j,k);
-
-dummy = D11(testfunc,i,j,k);
-
-dummy = D31(testfunc,i,j,k);
-
-dummy = D1(testfunc,i,j,k);
-
-
-DECLAREVARS
-