diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-05-13 17:34:55 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-05-13 17:34:55 +0000 |
| commit | 2193e0bf6b84d349a77204a556d89e7df2d16238 (patch) | |
| tree | 22785900dfc2066a144b67d3201e9054ae4b7559 /src/include/cctk.h | |
| parent | 64498408941707898304a4989d2d6ab6deac8893 (diff) | |
This is a bit untidy since I see I've defined a CCTK_REAL here ... tomorrow
this will be done properly and there will be
CCTK_VAR_REAL (or something similar) which will replace VARIABLE_REAL
(and my CCTK_REAL above).
CCTK_VAR_INTEGER etc.
Added a #define to print a separator line in Fortran or C.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@525 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include/cctk.h')
| -rw-r--r-- | src/include/cctk.h | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/include/cctk.h b/src/include/cctk.h index cf180195..33b023d0 100644 --- a/src/include/cctk.h +++ b/src/include/cctk.h @@ -27,6 +27,11 @@ /* Define some stuff */ #ifdef FCODE + +#define CCTK_PRINTSEPARATOR\ + print *,"----------------------------------------------------------------" + + #define _CCTK_FARGUMENTS dim, global_sh, sh, lb, ub, bbox, delta_time, time, delta_space, origin_space, levfac, convlevel, nghostzones, iteration, GH #define _DECLARE_CCTK_FARGUMENTS INTEGER dim&&\ INTEGER global_sh(dim)&&\ @@ -42,6 +47,12 @@ #endif /*FCODE*/ #ifdef CCODE + +#include "cGH.h" + +#define CCTK_PRINTSEPARATOR \ + printf("----------------------------------------------------------------\n"); + #define _INITIALISE_CCTK_C2F #define _DECLARE_CCTK_C2F #define _PASS_CCTK_C2F(xGH) &((xGH)->dim),\ @@ -78,6 +89,13 @@ extern int _cctk_one; #endif /*CCODE*/ +#define CCTK_REAL 3 + +/*#define CCTK_MAKESTRING(x) CCTK_REALSTRING(x) +#define CCTK_REALSTRING(x) #x +#define CCTK_WARN(a,b) CCTK_Warn(a,CCTK_MAKESTRING(CCTK_THORN),b) +*/ #define CCTK_WARN(a,b) CCTK_Warn(a,CCTK_THORNSTRING,b) #endif + |