diff options
author | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2013-01-15 19:35:16 +0000 |
---|---|---|
committer | eschnett <eschnett@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2013-01-15 19:35:16 +0000 |
commit | 4440072ca2acc19a2f4eb4f1cb82613356e88d62 (patch) | |
tree | c2eefde1be4eaf79ef74ef854946deb7034ebb67 /src | |
parent | 22f6814985f3c559a437541e701b14a22e1ed0dc (diff) |
Make CCTK_REAL16 more flexible
Instead of assuming that CCTK_REAL16 is real*16 in Fortran, allow any
real*N for user-specified values of N. This enables using CCTK_REAL16
e.g. with gcc versions that call it real*10.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4936 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src')
-rw-r--r-- | src/include/cctk_Types.h | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/include/cctk_Types.h b/src/include/cctk_Types.h index 22f52c37..e3fb55a6 100644 --- a/src/include/cctk_Types.h +++ b/src/include/cctk_Types.h @@ -115,9 +115,9 @@ typedef unsigned char CCTK_BYTE; #endif #ifdef HAVE_CCTK_REAL16 -#define CCTK_REAL16 REAL*16 +#define CCTK_REAL16 REAL*CCTK_REAL16_KIND #define HAVE_CCTK_COMPLEX32 1 -#define CCTK_COMPLEX32 COMPLEX*32 +#define CCTK_COMPLEX32 COMPLEX*CCTK_COMPLEX32_KIND #endif #ifdef HAVE_CCTK_REAL8 @@ -194,7 +194,7 @@ typedef unsigned char CCTK_BYTE; #define CCTK_COMPLEX CCTK_COMPLEX8 #endif -#endif /*_CCTK_TYPES_H_ */ +#endif /* CCODE */ /* Determine whether we have a traditional or an ANSI cpp. */ #ifdef FCODE @@ -273,5 +273,4 @@ typedef unsigned char CCTK_BYTE; #endif /* HAVE_..._ATTRIBUTE_UNUSED */ -#endif /* CCODE */ - +#endif /*_CCTK_TYPES_H_ */ |