diff options
Diffstat (limited to 'Carpet/Carpet/src/typecase')
| -rw-r--r-- | Carpet/Carpet/src/typecase | 190 |
1 files changed, 0 insertions, 190 deletions
diff --git a/Carpet/Carpet/src/typecase b/Carpet/Carpet/src/typecase deleted file mode 100644 index 8c87da5cd..000000000 --- a/Carpet/Carpet/src/typecase +++ /dev/null @@ -1,190 +0,0 @@ -// Instantiate type cases for all available types -*-C++-*- -// (C) 2001 Erik Schnetter <schnetter@uni-tuebingen.de> - -// Usage: -// Define the macro TYPECASE(N,T) to be a typecase for the type T with name N, -// then include this file, -// then undefine the macro TYPECASE. - - - -// Decide which types to typecase - -#ifdef CARPET_ALL -# undef CARPET_BYTE -# undef CARPET_INT -# undef CARPET_REAL -# undef CARPET_COMPLEX -# define CARPET_BYTE -# define CARPET_INT -# define CARPET_REAL -# define CARPET_COMPLEX -#endif - -#ifdef CARPET_ALL_INT -# undef CARPET_INT1 -# undef CARPET_INT2 -# undef CARPET_INT4 -# undef CARPET_INT8 -# define CARPET_INT1 -# define CARPET_INT2 -# define CARPET_INT4 -# define CARPET_INT8 -#endif - -#ifdef CARPET_ALL_REAL -# undef CARPET_REAL4 -# undef CARPET_REAL8 -# undef CARPET_REAL16 -# define CARPET_REAL4 -# define CARPET_REAL8 -# define CARPET_REAL16 -#endif - -#ifdef CARPET_ALL_COMPLEX -# undef CARPET_COMPLEX8 -# undef CARPET_COMPLEX16 -# undef CARPET_COMPLEX32 -# define CARPET_COMPLEX8 -# define CARPET_COMPLEX16 -# define CARPET_COMPLEX32 -#endif - -#if !defined(CARPET_BYTE) && !defined(CARPET_INT) && !defined(CARPET_INT1) && !defined(CARPET_INT2) && !defined(CARPET_INT4) && !defined(CARPET_INT8) && !defined(CARPET_REAL) && !defined(CARPET_REAL4) && !defined(CARPET_REAL8) && !defined(CARPET_REAL16) && !defined(CARPET_COMPLEX) && !defined(CARPET_COMPLEX8) && !defined(CARPET_COMPLEX16) && !defined(CARPET_COMPLEX32) -// Assume the user just wants INT, REAL, and COMPLEX -# undef CARPET_INT -# define CARPET_INT -# undef CARPET_REAL -# define CARPET_REAL -# undef CARPET_COMPLEX -# define CARPET_COMPLEX -#endif - -#ifdef CARPET_INT -# ifdef CCTK_INTEGER_PRECISION_1 -# undef CARPET_INT1 -# define CARPET_INT1 -# endif -# ifdef CCTK_INTEGER_PRECISION_2 -# undef CARPET_INT2 -# define CARPET_INT2 -# endif -# ifdef CCTK_INTEGER_PRECISION_4 -# undef CARPET_INT4 -# define CARPET_INT4 -# endif -# ifdef CCTK_INTEGER_PRECISION_8 -# undef CARPET_INT8 -# define CARPET_INT8 -# endif -#endif -#ifdef CARPET_REAL -# ifdef CCTK_REAL_PRECISION_4 -# undef CARPET_REAL4 -# define CARPET_REAL4 -# endif -# ifdef CCTK_REAL_PRECISION_8 -# undef CARPET_REAL8 -# define CARPET_REAL8 -# endif -# ifdef CCTK_REAL_PRECISION_16 -# undef CARPET_REAL16 -# define CARPET_REAL16 -# endif -#endif -#ifdef CARPET_COMPLEX -# ifdef CCTK_REAL_PRECISION_4 -# undef CARPET_COMPLEX8 -# define CARPET_COMPLEX8 -# endif -# ifdef CCTK_REAL_PRECISION_8 -# undef CARPET_COMPLEX16 -# define CARPET_COMPLEX16 -# endif -# ifdef CCTK_REAL_PRECISION_16 -# undef CARPET_COMPLEX32 -# define CARPET_COMPLEX32 -# endif -#endif - - - -// // Check -// #if !defined(CARPET_BYTE) && !defined(CARPET_INT1) && !defined(CARPET_INT2) && !defined(CARPET_INT4) && !defined(CARPET_INT8) && !defined(CARPET_REAL4) && !defined(CARPET_REAL8) && !defined(CARPET_REAL16) && !defined(CARPET_COMPLEX8) && !defined(CARPET_COMPLEX16) && !defined(CARPET_COMPLEX32) -// # error "You have not defined which grid function types to instantiate." -// #endif - - - -// Typecase the desired types - -// TODO: Find a way to collapse e.g. CCTK_INT and CCTK_INT4, if both -// are the same. Remember that the TYPECASE statements need not be -// executable. Maybe find a way to convert CCTK_VARIABLE_INT to -// CCTK_VARIABLE_INT4? - -#ifdef CARPET_BYTE -TYPECASE(CCTK_VARIABLE_BYTE, CCTK_BYTE) -#endif - -#ifdef CARPET_INT -TYPECASE(CCTK_VARIABLE_INT, CCTK_INT) -#endif -#ifdef CARPET_INT1 -# ifdef HAVE_CCTK_INT1 -TYPECASE(CCTK_VARIABLE_INT1, CCTK_INT1) -# endif -#endif -#ifdef CARPET_INT2 -# ifdef HAVE_CCTK_INT2 -TYPECASE(CCTK_VARIABLE_INT2, CCTK_INT2) -# endif -#endif -#ifdef CARPET_INT4 -# ifdef HAVE_CCTK_INT4 -TYPECASE(CCTK_VARIABLE_INT4, CCTK_INT4) -# endif -#endif -#ifdef CARPET_INT8 -# ifdef HAVE_CCTK_INT8 -TYPECASE(CCTK_VARIABLE_INT8, CCTK_INT8) -# endif -#endif - -#ifdef CARPET_REAL -TYPECASE(CCTK_VARIABLE_REAL, CCTK_REAL) -#endif -#ifdef CARPET_REAL4 -# ifdef HAVE_CCTK_REAL4 -TYPECASE(CCTK_VARIABLE_REAL4, CCTK_REAL4) -# endif -#endif -#ifdef CARPET_REAL8 -# ifdef HAVE_CCTK_REAL8 -TYPECASE(CCTK_VARIABLE_REAL8, CCTK_REAL8) -# endif -#endif -#ifdef CARPET_REAL16 -# ifdef HAVE_CCTK_REAL16 -TYPECASE(CCTK_VARIABLE_REAL16, CCTK_REAL16) -# endif -#endif - -#ifdef CARPET_COMPLEX -TYPECASE(CCTK_VARIABLE_COMPLEX, CCTK_COMPLEX) -#endif -#ifdef CARPET_COMPLEX8 -# ifdef HAVE_CCTK_COMPLEX8 -TYPECASE(CCTK_VARIABLE_COMPLEX8, CCTK_COMPLEX8) -# endif -#endif -#ifdef CARPET_COMPLEX16 -# ifdef HAVE_CCTK_COMPLEX16 -TYPECASE(CCTK_VARIABLE_COMPLEX16, CCTK_COMPLEX16) -# endif -#endif -#ifdef CARPET_COMPLEX32 -# ifdef HAVE_CCTK_COMPLEX32 -TYPECASE(CCTK_VARIABLE_COMPLEX32, CCTK_COMPLEX32) -# endif -#endif |