diff options
| author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-06-20 12:58:22 +0000 |
|---|---|---|
| committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-06-20 12:58:22 +0000 |
| commit | 7497be0f57992d51f33ba3c6beb975559e9c6610 (patch) | |
| tree | 42803999e583d7a4e8bf8bd8dd82c49001bcbf4f /src/include | |
| parent | 469c8fa8c58e39a22026599753545fa705b5b8ee (diff) | |
Define CCTK_REAL{8|16|32} fortran datatypes only if the corresponding
CCTK_HAVE_REAL{8|16|32} macros are defined.
Dito for CCTK_COMPLEX* datattypes.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3776 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include')
| -rw-r--r-- | src/include/cctk_Types.h | 33 |
1 files changed, 26 insertions, 7 deletions
diff --git a/src/include/cctk_Types.h b/src/include/cctk_Types.h index cdcee463..c7088886 100644 --- a/src/include/cctk_Types.h +++ b/src/include/cctk_Types.h @@ -29,7 +29,8 @@ typedef void (*CCTK_FPOINTER)(void); /* Structures for complex types */ -#ifdef CCTK_REAL16 +#if CCTK_HAVE_REAL16 +#define CCTK_HAVE_COMPLEX32 1 typedef struct { CCTK_REAL16 Re; @@ -37,7 +38,8 @@ typedef struct } CCTK_COMPLEX32; #endif -#ifdef CCTK_REAL8 +#if CCTK_HAVE_REAL8 +#define CCTK_HAVE_COMPLEX16 1 typedef struct { CCTK_REAL8 Re; @@ -45,7 +47,8 @@ typedef struct } CCTK_COMPLEX16; #endif -#ifdef CCTK_REAL4 +#if CCTK_HAVE_REAL4 +#define CCTK_HAVE_COMPLEX8 1 typedef struct { CCTK_REAL4 Re; @@ -71,18 +74,34 @@ typedef unsigned char CCTK_BYTE; #define CCTK_STRING CCTK_POINTER -#define CCTK_REAL16 REAL*16 -#define CCTK_REAL8 REAL*8 -#define CCTK_REAL4 REAL*4 - +#ifdef CCTK_HAVE_INT8 #define CCTK_INT8 INTEGER*8 +#endif +#ifdef CCTK_HAVE_INT4 #define CCTK_INT4 INTEGER*4 +#endif +#ifdef CCTK_HAVE_INT2 #define CCTK_INT2 INTEGER*2 +#endif +#ifdef CCTK_HAVE_INT1 #define CCTK_INT1 INTEGER*1 +#endif +#ifdef CCTK_HAVE_REAL16 +#define CCTK_REAL16 REAL*16 +#define CCTK_HAVE_COMPLEX32 1 #define CCTK_COMPLEX32 COMPLEX*32 +#endif +#ifdef CCTK_HAVE_REAL8 +#define CCTK_REAL8 REAL*8 +#define CCTK_HAVE_COMPLEX16 1 #define CCTK_COMPLEX16 COMPLEX*16 +#endif +#ifdef CCTK_HAVE_REAL4 +#define CCTK_REAL4 REAL*4 +#define CCTK_HAVE_COMPLEX8 1 #define CCTK_COMPLEX8 COMPLEX*8 +#endif /* DEPRECATED IN BETA 10 */ #define CCTK_CHAR CHARACTER |