add Hermite interpolation functions to dispatch table

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/LocalInterp/trunk@103 df1f8a13-aa1d-4dd4-9681-27ded5b42416

2 files changed, 61 insertions, 59 deletions

diff --git a/src/GeneralizedPolynomial-Uniform/InterpLocalUniform.c b/src/GeneralizedPolynomial-Uniform/InterpLocalUniform.c
index fc8076e..3bb59c2 100644
--- a/src/GeneralizedPolynomial-Uniform/InterpLocalUniform.c
+++ b/src/GeneralizedPolynomial-Uniform/InterpLocalUniform.c
@@ -35,6 +35,7 @@
 #include "InterpLocalUniform.h"
 
 #include "Lagrange/all_prototypes.h"
+#include "Hermite/all_prototypes.h"
 
 /* the rcs ID and its dummy function to use it */
 static const char *rcsid = "$Header$";
@@ -1384,7 +1385,7 @@ typedef
   #include "template.h"
 
 /* NULL (function) pointer of this type */
-#define NULL_INTERP_FN_PTR	((p_interp_fn_t) NULL)
+#define NULL_INTERP_FN_PTR        ((p_interp_fn_t) NULL)
 
 /*
  * For each axis of this array which is marked with a "see above" comment
@@ -1407,13 +1408,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 0 ==> unused */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=1 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=2 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=3 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=4 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=5 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=6 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=1 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=2 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=3 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=4 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=5 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=6 (unused) */
 	    },
 	  },
 
@@ -1421,13 +1422,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 1 */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { LocalInterp_ULagrange_1dcube_10, },	/* order=1 */
-	      { LocalInterp_ULagrange_1dcube_20, },	/* order=2 */
-	      { LocalInterp_ULagrange_1dcube_30, },	/* order=3 */
-	      { LocalInterp_ULagrange_1dcube_40, },	/* order=4 */
-	      { LocalInterp_ULagrange_1dcube_50, },	/* order=5 */
-	      { LocalInterp_ULagrange_1dcube_60, },	/* order=6 */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { LocalInterp_ULagrange_1dcube_10,   },	/* order=1 */
+	      { LocalInterp_ULagrange_1dcube_20,   },	/* order=2 */
+	      { LocalInterp_ULagrange_1dcube_30,   },	/* order=3 */
+	      { LocalInterp_ULagrange_1dcube_40,   },	/* order=4 */
+	      { LocalInterp_ULagrange_1dcube_50,   },	/* order=5 */
+	      { LocalInterp_ULagrange_1dcube_60,   },	/* order=6 */
 	    },
 	  },
 
@@ -1435,13 +1436,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 2 */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { LocalInterp_ULagrange_2dcube_10, },	/* order=1 */
-	      { LocalInterp_ULagrange_2dcube_20, },	/* order=2 */
-	      { LocalInterp_ULagrange_2dcube_30, },	/* order=3 */
-	      { LocalInterp_ULagrange_2dcube_40, },	/* order=4 */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=5 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=6 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { LocalInterp_ULagrange_2dcube_10,   },	/* order=1 */
+	      { LocalInterp_ULagrange_2dcube_20,   },	/* order=2 */
+	      { LocalInterp_ULagrange_2dcube_30,   },	/* order=3 */
+	      { LocalInterp_ULagrange_2dcube_40,   },	/* order=4 */
+	      { NULL_INTERP_FN_PTR,                },	/* order=5 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=6 (n.i.) */
 	    },
 	  },
 
@@ -1449,13 +1450,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 3 */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { LocalInterp_ULagrange_3dcube_10, },	/* order=1 */
-	      { LocalInterp_ULagrange_3dcube_20, },	/* order=2 */
-	      { LocalInterp_ULagrange_3dcube_30, },	/* order=3 */
-	      { LocalInterp_ULagrange_3dcube_40, },	/* order=4 */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=5 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=6 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { LocalInterp_ULagrange_3dcube_10,   },	/* order=1 */
+	      { LocalInterp_ULagrange_3dcube_20,   },	/* order=2 */
+	      { LocalInterp_ULagrange_3dcube_30,   },	/* order=3 */
+	      { LocalInterp_ULagrange_3dcube_40,   },	/* order=4 */
+	      { NULL_INTERP_FN_PTR,                },	/* order=5 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=6 (n.i.) */
 	    },
 	  },
 
@@ -1468,13 +1469,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 0 ==> unused */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=1 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=2 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=3 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=4 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=5 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=6 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=1 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=2 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=3 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=4 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=5 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=6 (unused) */
 	    },
 	  },
 
@@ -1482,13 +1483,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 1 */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=1 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=2 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=3 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=4 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=5 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=6 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=1 (unused) */
+	      { LocalInterp_UHermite_1dcube_2,     },	/* order=2 */
+	      { LocalInterp_UHermite_1dcube_3,     },	/* order=3 */
+	      { LocalInterp_UHermite_1dcube_4,     },	/* order=4 */
+	      { NULL_INTERP_FN_PTR,                },	/* order=5 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=6 (n.i.) */
 	    },
 	  },
 
@@ -1496,13 +1497,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 2 */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=1 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=2 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=3 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=4 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=5 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=6 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=1 (unused) */
+	      { LocalInterp_UHermite_2dcube_2,     },	/* order=2 */
+	      { LocalInterp_UHermite_2dcube_3,     },	/* order=3 */
+	      { NULL_INTERP_FN_PTR,                },	/* order=4 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=5 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=6 (n.i.) */
 	    },
 	  },
 
@@ -1510,13 +1511,13 @@ static const p_interp_fn_t p_interp_fn_table[N_INTERP_OPERATORS]
 	  /* N_dims = 3 */
 	    {
 	    /* molecule_family = molecule_family_cube */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=0 (unused) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=1 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=2 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=3 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=4 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=5 (n.i.) */
-	      { NULL_INTERP_FN_PTR	       , },	/* order=6 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=0 (unused) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=1 (unused) */
+	      { LocalInterp_UHermite_3dcube_2,     },	/* order=2 */
+	      { LocalInterp_UHermite_3dcube_3,     },	/* order=3 */
+	      { NULL_INTERP_FN_PTR,                },	/* order=4 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=5 (n.i.) */
+	      { NULL_INTERP_FN_PTR,                },	/* order=6 (n.i.) */
 	    },
 	  },
 
diff --git a/src/GeneralizedPolynomial-Uniform/Lagrange/make.code.defn b/src/GeneralizedPolynomial-Uniform/Lagrange/make.code.defn
index 468c500..c656453 100644
--- a/src/GeneralizedPolynomial-Uniform/Lagrange/make.code.defn
+++ b/src/GeneralizedPolynomial-Uniform/Lagrange/make.code.defn
@@ -2,7 +2,8 @@
 # $Header$
 
 # Source files in this directory
-SRCS = 1d.cube.order1.smooth0.c \
+SRCS =                          \
+       1d.cube.order1.smooth0.c \
        1d.cube.order2.smooth0.c \
        1d.cube.order3.smooth0.c \
        1d.cube.order4.smooth0.c \
@@ -18,4 +19,4 @@ SRCS = 1d.cube.order1.smooth0.c \
        3d.cube.order2.smooth0.c \
        3d.cube.order3.smooth0.c \
        3d.cube.order4.smooth0.c \
-		# end of list
+			# end of list