diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-13 19:58:39 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-02-13 19:58:39 +0000 |
| commit | a4caacc1e2f56259185ae10a0ff73db7c78e01d0 (patch) | |
| tree | d0a9332dbe62e83950f108dc150d4fb443621b88 /src/include/cctk.h | |
| parent | 2128a085abf27619fd3ceebf5e59034be7d87604 (diff) | |
Added more variables (global_sh, nghostzones, convlevel) to fortran
argument list
git-svn-id: http://svn.cactuscode.org/flesh/trunk@252 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include/cctk.h')
| -rw-r--r-- | src/include/cctk.h | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/include/cctk.h b/src/include/cctk.h index 9f767b23..7d4451e2 100644 --- a/src/include/cctk.h +++ b/src/include/cctk.h @@ -19,10 +19,13 @@ /* Define some stuff */ #ifdef FCODE -#define _CCTK_FARGUMENTS dim,sh, lb, ub, bbox, levfac, GH +#define _CCTK_FARGUMENTS dim, global_sh, sh, lb, ub, bbox, levfac, convlevel, nghostzones, GH #define _DECLARE_CCTK_FARGUMENTS INTEGER dim&&\ + INTEGER global_sh(dim)&&\ INTEGER sh(dim), lb(dim), ub(dim), bbox(2*dim)&&\ INTEGER levfac&&\ + INTEGER convlevel&&\ + INTEGER nghostzones&&\ POINTER GH&&\ #endif /*FCODE*/ @@ -31,12 +34,18 @@ #define _INITIALISE_CCTK_C2F #define _DECLARE_CCTK_C2F #define _PASS_CCTK_C2F(xGH) &((xGH)->dim),\ + (xGH)->global_shape,\ (xGH)->local_shape, (xGH)->lower_bound, (xGH)->upper_bound, (xGH)->bbox,\ &((xGH)->levfac),\ + &((xGH)->convlevel),\ + &((xGH)->nghostzones),\ (xGH) #define _CCTK_C2F_PROTO int *,\ + int *,\ int *,int *, int *, int *,\ int *,\ + int *,\ + int *,\ cGH * #define CCTK_STORAGESIZE(xGH, group, dim) (CCTK_QueryGroupStorage(xGH,group) ?\ |