diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-15 09:03:57 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-06-15 09:03:57 +0000 |
| commit | 8970cf2d062b5650cd2ae764ded94769d8d027a7 (patch) | |
| tree | a73838e0935bca6e4799a561241e4dfc6ba12e29 /src/include/cctk.h | |
| parent | 73c042453a8491a59c1e44965ec2a62440db04b8 (diff) | |
Double -> CCTK_REAL
REAL -> CCTK_REAL
POINTER -> CCTK_POINTER
VARIABLE_REAL -> CCTK_VARIABLE_REAL (etc)
GH->iteration is now an int (not an unsigned long int)
git-svn-id: http://svn.cactuscode.org/flesh/trunk@551 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include/cctk.h')
| -rw-r--r-- | src/include/cctk.h | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/src/include/cctk.h b/src/include/cctk.h index 33b023d0..eaa58c34 100644 --- a/src/include/cctk.h +++ b/src/include/cctk.h @@ -36,13 +36,13 @@ #define _DECLARE_CCTK_FARGUMENTS INTEGER dim&&\ INTEGER global_sh(dim)&&\ INTEGER sh(dim), lb(dim), ub(dim), bbox(2*dim)&&\ - REAL delta_time, time, delta_space(dim)&&\ - REAL origin_space(dim)&&\ + CCTK_REAL delta_time, time, delta_space(dim)&&\ + CCTK_REAL origin_space(dim)&&\ INTEGER levfac&&\ INTEGER convlevel&&\ INTEGER nghostzones&&\ INTEGER iteration&&\ - POINTER GH&&\ + CCTK_POINTER GH&&\ #endif /*FCODE*/ @@ -68,12 +68,12 @@ #define _CCTK_C2F_PROTO int *,\ int *,\ int *,int *, int *, int *,\ - Double *, Double *, Double *,\ - Double *,\ + CCTK_REAL *, CCTK_REAL *, CCTK_REAL *,\ + CCTK_REAL *,\ + int *,\ int *,\ int *,\ int *,\ - unsigned long *,\ cGH * #define CCTK_STORAGESIZE(xGH, group, dim) (CCTK_QueryGroupStorage(xGH,group) ?\ @@ -81,15 +81,18 @@ typedef struct { - Double Re; - Double Im; + CCTK_REAL Re; + CCTK_REAL Im; } Complex; extern int _cctk_one; #endif /*CCODE*/ -#define CCTK_REAL 3 +#define CCTK_VARIABLE_CHAR 1 +#define CCTK_VARIABLE_INTEGER 2 +#define CCTK_VARIABLE_REAL 3 +#define CCTK_VARIABLE_COMPLEX 4 /*#define CCTK_MAKESTRING(x) CCTK_REALSTRING(x) #define CCTK_REALSTRING(x) #x |