diff options
| author | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-03-17 15:43:15 +0000 |
|---|---|---|
| committer | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-03-17 15:43:15 +0000 |
| commit | e6d58974c7010c4b1df97ca2aef3cca195ec64ff (patch) | |
| tree | f46a3818fe63e9c94083a5cc4d9ea47fe5488059 /src/comm/OverloadComm.c | |
| parent | 2120733a63158aebf8b430e1e47a0b8a944653da (diff) | |
overloading CCTK_Exit
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1475 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm/OverloadComm.c')
| -rw-r--r-- | src/comm/OverloadComm.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/comm/OverloadComm.c b/src/comm/OverloadComm.c index c1f31533..404e2d0d 100644 --- a/src/comm/OverloadComm.c +++ b/src/comm/OverloadComm.c @@ -27,6 +27,7 @@ static char *rcsid="$Header$"; #define CCTKi_DummySetupGH CactusDefaultSetupGH #define CCTKi_DummyMyProc CactusDefaultMyProc #define CCTKi_DummynProcs CactusDefaultnProcs +#define CCTKi_DummyExit CactusDefaultExit #include "CommOverloadables.h" @@ -34,6 +35,7 @@ static char *rcsid="$Header$"; #undef CCTKi_DummySetupGH #undef CCTKi_DummyMyProc #undef CCTKi_DummynProcs +#undef CCTKi_DummyExit #undef OVERLOADABLE @@ -67,9 +69,10 @@ int CCTKi_SetupCommFunctions(void) #define OVERLOADABLE(name) OVERLOADABLE_CHECK(name) /* Deal seperately with the SetupGH routine */ -#define CCTKi_DummySetupGH CactusDefaultSetupGH +#define CCTKi_DummySetupGH CactusDefaultSetupGH #define CCTKi_DummyMyProc CactusDefaultMyProc #define CCTKi_DummynProcs CactusDefaultnProcs +#define CCTKi_DummyExit CactusDefaultExit #include "CommOverloadables.h" @@ -77,6 +80,7 @@ int CCTKi_SetupCommFunctions(void) #undef CCTKi_DummySetupGH #undef CCTKi_DummyMyProc #undef CCTKi_DummynProcs +#undef CCTKi_DummyExit #undef OVERLOADABLE @@ -96,10 +100,9 @@ int CCTKi_SetupCommFunctions(void) -int FMODIFIER FORTRAN_NAME(CCTK_Exit)(cGH *GH) +int FMODIFIER FORTRAN_NAME(CCTK_Exit)(int *retval, cGH *GH) { - CCTK_Exit(GH); - return 0; + CCTK_Exit(*retval, GH); } int FMODIFIER FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH) |