From 4440072ca2acc19a2f4eb4f1cb82613356e88d62 Mon Sep 17 00:00:00 2001 From: eschnett Date: Tue, 15 Jan 2013 19:35:16 +0000 Subject: 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 --- src/include/cctk_Types.h | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src') 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_ */ -- cgit v1.2.3