diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-30 12:56:51 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-01-30 12:56:51 +0000 |
| commit | 89932fe69fb42c5d0565a17a7c29e3b0f7222fbd (patch) | |
| tree | f89086413a0c8f4e1114121276b87835c9b164db /src/include/cctk.h | |
| parent | fca911490ac158329ee55d1f7c57c29887f0a85e (diff) | |
Must have forgotten to commit this, include file with flesh arguement
lists having a _ in front of them.
Also changed
#define _DECLARE_CCTK_FARGUMENTS INTEGER dim&&\
INTEGER sh(dim), lb(dim), ub(dim), bbox(2*dim)&&\
INTEGER levfac&&\
POINTER GH
to
#define _DECLARE_CCTK_FARGUMENTS INTEGER dim&&\
INTEGER sh(dim), lb(dim), ub(dim), bbox(2*dim)&&\
INTEGER levfac&&\
POINTER GH&&\
otherwise declaration lines on the same lines in fortran
git-svn-id: http://svn.cactuscode.org/flesh/trunk@157 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include/cctk.h')
| -rw-r--r-- | src/include/cctk.h | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/include/cctk.h b/src/include/cctk.h index bd371aea..3b3fcd7b 100644 --- a/src/include/cctk.h +++ b/src/include/cctk.h @@ -19,25 +19,25 @@ /* Define some stuff */ #ifdef FCODE -#define CCTK_FARGS dim,sh, lb, ub, bbox, levfac, GH -#define DECLARE_CCTK_FARGS INTEGER dim&&\ +#define _CCTK_FARGUMENTS dim,sh, lb, ub, bbox, levfac, GH +#define _DECLARE_CCTK_FARGUMENTS INTEGER dim&&\ INTEGER sh(dim), lb(dim), ub(dim), bbox(2*dim)&&\ INTEGER levfac&&\ - POINTER GH + POINTER GH&&\ #endif /*FCODE*/ #ifdef CCODE -#define INITIALISE_CCTK_C2F -#define DECLARE_CCTK_C2F -#define PASS_CCTK_C2F(xGH) &((xGH)->dim),\ - (xGH)->local_shape, (xGH)->lower_bound, (xGH)->upper_bound, (xGH)->bbox,\ - &((xGH)->levfac),\ - (xGH) -#define CCTK_C2F_PROTO int *,\ - int *,int *, int *, int *,\ - int *,\ - cGH * +#define _INITIALISE_CCTK_C2F +#define _DECLARE_CCTK_C2F +#define _PASS_CCTK_C2F(xGH) &((xGH)->dim),\ + (xGH)->local_shape, (xGH)->lower_bound, (xGH)->upper_bound, (xGH)->bbox,\ + &((xGH)->levfac),\ + (xGH) +#define _CCTK_C2F_PROTO int *,\ + int *,int *, int *, int *,\ + int *,\ + cGH * #define CCTK_STORAGESIZE(xGH, group, dim) (CCTK_QueryGroupStorage(xGH,group) ?\ (CCTK_ArrayGroupSize(xGH, group, dim)) : &(_cctk_one)) |