diff options
author | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-03-17 15:42:34 +0000 |
---|---|---|
committer | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-03-17 15:42:34 +0000 |
commit | 2120733a63158aebf8b430e1e47a0b8a944653da (patch) | |
tree | e76ae89cf469623dd2111380915eb1523d011b01 /src/comm/CactusDefaultComm.c | |
parent | 2297fac88c1ceed0b645cb20f4b802979ba9bcd0 (diff) |
int CactusDefaultExit(int retval, cGH *GH)
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1474 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm/CactusDefaultComm.c')
-rw-r--r-- | src/comm/CactusDefaultComm.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/comm/CactusDefaultComm.c b/src/comm/CactusDefaultComm.c index 00067962..2dc6e0ab 100644 --- a/src/comm/CactusDefaultComm.c +++ b/src/comm/CactusDefaultComm.c @@ -239,3 +239,14 @@ int CactusDefaultnProcs(cGH *GH) return nprocs; } + +int CactusDefaultExit(int retval, cGH *GH) +{ +#ifdef MPI + if(MPI_Active) + { + CACTUS_MPI_ERROR(MPI_Finalize()); + } +#endif + exit(retval); +} |