diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-09 11:27:59 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-11-09 11:27:59 +0000 |
commit | aa4a5d1c94397a4ce44679e4a0f0a5ad43e56bfc (patch) | |
tree | 3cf4155c7c5fb39eca8333976faa68b9a8938134 | |
parent | d44fef1e11e3d5a6327fd29062b694b267d20adb (diff) |
Changed definition of complex type to be consistent with Fortran defaults.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1144 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | src/include/cctk_types.h | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/include/cctk_types.h b/src/include/cctk_types.h index b90a8ffa..aa084a14 100644 --- a/src/include/cctk_types.h +++ b/src/include/cctk_types.h @@ -28,7 +28,7 @@ typedef struct { CCTK_REAL16 Re; CCTK_REAL16 Im; -} CCTK_COMPLEX16; +} CCTK_COMPLEX32; #endif #ifdef CCTK_REAL8 @@ -36,7 +36,7 @@ typedef struct { CCTK_REAL8 Re; CCTK_REAL8 Im; -} CCTK_COMPLEX8; +} CCTK_COMPLEX16; #endif #ifdef CCTK_REAL4 @@ -44,7 +44,7 @@ typedef struct { CCTK_REAL4 Re; CCTK_REAL4 Im; -} CCTK_COMPLEX4; +} CCTK_COMPLEX8; #endif /* Character type */ @@ -67,9 +67,9 @@ typedef unsigned char CCTK_CHAR; #define CCTK_INT4 INTEGER*4 #define CCTK_INT2 INTEGER*2 -#define CCTK_COMPLEX16 COMPLEX*16 -#define CCTK_COMPLEX8 COMPLEX*8 -#define CCTK_COMPLEX4 COMPLEX*4 +#define CCTK_COMPLEX32 COMPLEX*32 +#define CCTK_COMPLEX16 COMPLEX*16 +#define CCTK_COMPLEX8 COMPLEX*8 #define CCTK_CHAR CHARACTER @@ -106,15 +106,15 @@ typedef unsigned char CCTK_CHAR; /* Complex precision */ #ifdef CCTK_REAL_PRECISION_16 -#define CCTK_COMPLEX CCTK_COMPLEX16 +#define CCTK_COMPLEX CCTK_COMPLEX32 #endif #ifdef CCTK_REAL_PRECISION_8 -#define CCTK_COMPLEX CCTK_COMPLEX8 +#define CCTK_COMPLEX CCTK_COMPLEX16 #endif #ifdef CCTK_REAL_PRECISION_4 -#define CCTK_COMPLEX CCTK_COMPLEX4 +#define CCTK_COMPLEX CCTK_COMPLEX8 #endif #endif /*_CCTK_TYPES_H_ */ |