aboutsummaryrefslogtreecommitdiff
path: root/src/GeneralizedPolynomial-Uniform/common/fetch-template.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/GeneralizedPolynomial-Uniform/common/fetch-template.c')
-rw-r--r--src/GeneralizedPolynomial-Uniform/common/fetch-template.c94
1 files changed, 0 insertions, 94 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/common/fetch-template.c b/src/GeneralizedPolynomial-Uniform/common/fetch-template.c
deleted file mode 100644
index 5da0b01..0000000
--- a/src/GeneralizedPolynomial-Uniform/common/fetch-template.c
+++ /dev/null
@@ -1,94 +0,0 @@
-/* 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