From aa4a5d1c94397a4ce44679e4a0f0a5ad43e56bfc Mon Sep 17 00:00:00 2001
From: goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Tue, 9 Nov 1999 11:27:59 +0000
Subject: 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
---
 src/include/cctk_types.h | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/include')

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_ */
-- 
cgit v1.2.3