1 files changed, 138 insertions, 0 deletions
diff --git a/src/common/evaluate.c b/src/common/evaluate.c
new file mode 100644
index 0000000..60156b3
--- /dev/null
+++ b/src/common/evaluate.c
@@ -0,0 +1,138 @@
+/* evaluate.c -- evaluate a molecule (as a linear combination of the data) */
+/* $Header$ */
+
+#include "cctk.h"
+#include "../InterpLocalUniform.h"
+
+#include "structs.h"
+#include "evaluate.h"
+
+/******************************************************************************/
+
+/*
+ * 1-D routines
+ */
+
+fp AEILocalInterp_eval_1dcube2(const struct coeffs_struct_1d_cube_size2 *coeffs,
+			       const struct data_struct_1d_cube_size2 *data)
+{
+return
+  #include "1d.cube.size2/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_1dcube3(const struct coeffs_struct_1d_cube_size3 *coeffs,
+			       const struct data_struct_1d_cube_size3 *data)
+{
+return
+  #include "1d.cube.size3/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_1dcube4(const struct coeffs_struct_1d_cube_size4 *coeffs,
+			       const struct data_struct_1d_cube_size4 *data)
+{
+return
+  #include "1d.cube.size4/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_1dcube5(const struct coeffs_struct_1d_cube_size5 *coeffs,
+			       const struct data_struct_1d_cube_size5 *data)
+{
+return
+  #include "1d.cube.size5/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_1dcube6(const struct coeffs_struct_1d_cube_size6 *coeffs,
+			       const struct data_struct_1d_cube_size6 *data)
+{
+return
+  #include "1d.cube.size6/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_1dcube7(const struct coeffs_struct_1d_cube_size7 *coeffs,
+			       const struct data_struct_1d_cube_size7 *data)
+{
+return
+  #include "1d.cube.size7/evaluate-molecule.c"
+}
+
+/******************************************************************************/
+
+/*
+ * 2-D routines
+ */
+
+fp AEILocalInterp_eval_2dcube2(const struct coeffs_struct_2d_cube_size2 *coeffs,
+			       const struct data_struct_2d_cube_size2 *data)
+{
+return
+  #include "2d.cube.size2/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_2dcube3(const struct coeffs_struct_2d_cube_size3 *coeffs,
+			       const struct data_struct_2d_cube_size3 *data)
+{
+return
+  #include "2d.cube.size3/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_2dcube4(const struct coeffs_struct_2d_cube_size4 *coeffs,
+			       const struct data_struct_2d_cube_size4 *data)
+{
+return
+  #include "2d.cube.size4/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_2dcube5(const struct coeffs_struct_2d_cube_size5 *coeffs,
+			       const struct data_struct_2d_cube_size5 *data)
+{
+return
+  #include "2d.cube.size5/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_2dcube6(const struct coeffs_struct_2d_cube_size6 *coeffs,
+			       const struct data_struct_2d_cube_size6 *data)
+{
+return
+  #include "2d.cube.size6/evaluate-molecule.c"
+}
+
+/******************************************************************************/
+
+/*
+ * 3-D routines
+ */
+
+fp AEILocalInterp_eval_3dcube2(const struct coeffs_struct_3d_cube_size2 *coeffs,
+			       const struct data_struct_3d_cube_size2 *data)
+{
+return
+  #include "3d.cube.size2/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_3dcube3(const struct coeffs_struct_3d_cube_size3 *coeffs,
+			       const struct data_struct_3d_cube_size3 *data)
+{
+return
+  #include "3d.cube.size3/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_3dcube4(const struct coeffs_struct_3d_cube_size4 *coeffs,
+			       const struct data_struct_3d_cube_size4 *data)
+{
+return
+  #include "3d.cube.size4/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_3dcube5(const struct coeffs_struct_3d_cube_size5 *coeffs,
+			       const struct data_struct_3d_cube_size5 *data)
+{
+return
+  #include "3d.cube.size5/evaluate-molecule.c"
+}
+
+fp AEILocalInterp_eval_3dcube6(const struct coeffs_struct_3d_cube_size6 *coeffs,
+			       const struct data_struct_3d_cube_size6 *data)
+{
+return
+  #include "3d.cube.size6/evaluate-molecule.c"
+}