1 files changed, 94 insertions, 0 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/common/fetch-template.c b/src/GeneralizedPolynomial-Uniform/common/fetch-template.c
new file mode 100644
index 0000000..5da0b01
--- /dev/null
+++ b/src/GeneralizedPolynomial-Uniform/common/fetch-template.c
@@ -0,0 +1,94 @@
+/* fetch-template.c -- template for fetch functions */
+/* $Header$ */
+
+/*
+ * Each of the functions defined in this file fetches a molecule-sized
+ * piece of an input array into a data struct.  There is one function for
+ * each combination of molecule size and input array datatype.
+ */
+
+/******************************************************************************/
+
+/*
+ * fetch-data routines for real datatypes
+ */
+
+#undef  DATA
+#define DATA	DATA_REAL
+
+void FETCH_FUNCTION_NAME(r)(const CCTK_REAL *ptr,
+			    INT_STRIDE_IJK,
+			    struct DATA_STRUCT *data)
+{
+#include FETCH_DATA_FILE_NAME
+}
+
+#ifdef HAVE_CCTK_REAL4
+  void FETCH_FUNCTION_NAME(r4)(const CCTK_REAL4 *ptr,
+			       INT_STRIDE_IJK,
+			       struct DATA_STRUCT *data)
+  {
+  #include FETCH_DATA_FILE_NAME
+  }
+#endif
+
+#ifdef HAVE_CCTK_REAL8
+  void FETCH_FUNCTION_NAME(r8)(const CCTK_REAL8 *ptr,
+			       INT_STRIDE_IJK,
+			       struct DATA_STRUCT *data)
+  {
+  #include FETCH_DATA_FILE_NAME
+  }
+#endif
+
+#ifdef HAVE_CCTK_REAL16
+  void FETCH_FUNCTION_NAME(r16)(const CCTK_REAL16 *ptr,
+				INT_STRIDE_IJK,
+				struct DATA_STRUCT *data)
+  {
+  #include FETCH_DATA_FILE_NAME
+  }
+#endif
+
+/******************************************************************************/
+
+/*
+ * fetch-data routines for complex datatypes
+ */
+
+#undef  DATA
+#define DATA	DATA_COMPLEX
+
+void FETCH_FUNCTION_NAME(c)(const CCTK_REAL (*ptr)[COMPLEX_N_PARTS],
+			    INT_STRIDE_IJK, int part,
+			    struct DATA_STRUCT *data)
+{
+#include FETCH_DATA_FILE_NAME
+}
+
+#ifdef HAVE_CCTK_COMPLEX8
+  void FETCH_FUNCTION_NAME(c8)(const CCTK_REAL4 (*ptr)[COMPLEX_N_PARTS],
+			       INT_STRIDE_IJK, int part,
+			       struct DATA_STRUCT *data)
+  {
+  #include FETCH_DATA_FILE_NAME
+  }
+#endif
+
+#ifdef HAVE_CCTK_COMPLEX16
+  void FETCH_FUNCTION_NAME(c16)(const CCTK_REAL8 (*ptr)[COMPLEX_N_PARTS],
+				INT_STRIDE_IJK, int part,
+				struct DATA_STRUCT *data)
+  {
+  #include FETCH_DATA_FILE_NAME
+  }
+#endif
+
+#ifdef HAVE_CCTK_COMPLEX32
+  void FETCH_FUNCTION_NAME(c32)(const CCTK_REAL16 (*ptr)[COMPLEX_N_PARTS],
+				INT_STRIDE_IJK, int part,
+				struct DATA_STRUCT *data)
+  {
+  #include FETCH_DATA_FILE_NAME
+  }
+#endif