diff options
author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-28 13:48:26 +0000 |
---|---|---|
committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-28 13:48:26 +0000 |
commit | 9384d5ead61eeb13ff4be9f182d328081e3af018 (patch) | |
tree | d939345f7ba2f2ebd5038aab37c13e76e30aad19 /src/include | |
parent | a31931c369a680cc3abd31f75be611521718d815 (diff) |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3446 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/include')
-rw-r--r-- | src/include/cGH.h | 7 | ||||
-rw-r--r-- | src/include/cctk.h | 4 |
2 files changed, 8 insertions, 3 deletions
diff --git a/src/include/cGH.h b/src/include/cGH.h index 0fa98a9c..2ff557d6 100644 --- a/src/include/cGH.h +++ b/src/include/cGH.h @@ -21,8 +21,13 @@ typedef struct char comm; } cGHGroupData; -typedef struct +typedef struct _cGH { + /* Pointer to self. This is a temporary measure to provide a safety + net while the passing of pointers to and from Fortran is + changed. */ + struct _cGH *self; + int cctk_dim; int cctk_iteration; diff --git a/src/include/cctk.h b/src/include/cctk.h index 22f0fe20..74924b47 100644 --- a/src/include/cctk.h +++ b/src/include/cctk.h @@ -244,7 +244,7 @@ inline int CCTK_GFINDEX4D (const cGH *GH, int i, int j, int k, int l) &((xGH)->cctk_convlevel),\ (xGH)->cctk_nghostzones,\ &((xGH)->cctk_iteration),\ - (xGH) + &(xGH) #define _CCTK_C2F_PROTO int *,\ int *,\ int *,int *, int *, int *, int *,int *,int *,\ @@ -257,7 +257,7 @@ inline int CCTK_GFINDEX4D (const cGH *GH, int i, int j, int k, int l) int *,\ int *,\ int *,\ - cGH * + cGH ** #define CCTK_EQUALS(a,b) (CCTK_Equals((a),(b))) |