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/comm/CactusSync.c | |
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/comm/CactusSync.c')
-rw-r--r-- | src/comm/CactusSync.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/comm/CactusSync.c b/src/comm/CactusSync.c index 7afb0e19..102d91d1 100644 --- a/src/comm/CactusSync.c +++ b/src/comm/CactusSync.c @@ -31,11 +31,11 @@ CCTK_FILEVERSION(comm_CactusSync_c); /* prototypes for external C routines are declared in header cctk_Groups.h here only follow the fortran wrapper prototypes */ void CCTK_FCALL CCTK_FNAME (CCTK_SyncGroupI) - (int *ierror, const cGH *GH, const int *group); + (int *ierror, const cGH **GH, const int *group); void CCTK_FCALL CCTK_FNAME (CCTK_SyncGroupWithVar) - (int *ierror, const cGH *GH, ONE_FORTSTRING_ARG); + (int *ierror, const cGH **GH, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_SyncGroupWithVarI) - (int *ierror, const cGH *GH, const int *var); + (int *ierror, const cGH **GH, const int *var); /*@@ @@ -88,9 +88,9 @@ int CCTK_SyncGroupI (const cGH *GH, int group) } void CCTK_FCALL CCTK_FNAME (CCTK_SyncGroupI) - (int *ierror, const cGH *GH, const int *group) + (int *ierror, const cGH **GH, const int *group) { - CCTK_SyncGroupI (GH, *group); + CCTK_SyncGroupI (*GH, *group); *ierror = 0; } @@ -134,10 +134,10 @@ int CCTK_SyncGroupWithVar (const cGH *GH, const char *varname) } void CCTK_FCALL CCTK_FNAME (CCTK_SyncGroupWithVar) - (int *ierror, const cGH *GH, ONE_FORTSTRING_ARG) + (int *ierror, const cGH **GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE (varname); - *ierror = CCTK_SyncGroupWithVar (GH, varname); + *ierror = CCTK_SyncGroupWithVar (*GH, varname); free (varname); } @@ -179,9 +179,9 @@ int CCTK_SyncGroupWithVarI (const cGH *GH, int var) } void CCTK_FCALL CCTK_FNAME (CCTK_SyncGroupWithVarI) - (int *ierror, const cGH *GH, const int *var) + (int *ierror, const cGH **GH, const int *var) { - *ierror = CCTK_SyncGroupWithVarI (GH, *var); + *ierror = CCTK_SyncGroupWithVarI (*GH, *var); } |