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/main/Termination.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/main/Termination.c')
-rw-r--r-- | src/main/Termination.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/main/Termination.c b/src/main/Termination.c index 47f4f1bd..adb2567a 100644 --- a/src/main/Termination.c +++ b/src/main/Termination.c @@ -23,7 +23,7 @@ static int termination_reached = 0; /******************************************************************** ********************* External Routines ********************** ********************************************************************/ -void CCTK_FCALL CCTK_FNAME (CCTK_TerminateNext) (const cGH *GH); +void CCTK_FCALL CCTK_FNAME (CCTK_TerminateNext) (const cGH **GH); /*@@ @@ -72,7 +72,7 @@ void CCTK_TerminateNext (const cGH *GH) termination_reached = 1; } -void CCTK_FCALL CCTK_FNAME (CCTK_TerminateNext) (const cGH *GH) +void CCTK_FCALL CCTK_FNAME (CCTK_TerminateNext) (const cGH **GH) { - CCTK_TerminateNext (GH); + CCTK_TerminateNext (*GH); } |