diff options
| -rw-r--r-- | src/comm/OverloadComm.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/comm/OverloadComm.c b/src/comm/OverloadComm.c index db76d77a..c0c291a8 100644 --- a/src/comm/OverloadComm.c +++ b/src/comm/OverloadComm.c @@ -106,13 +106,12 @@ int CCTKi_SetupCommFunctions(void) int FMODIFIER FORTRAN_NAME(CCTK_Exit)(int *retval, cGH *GH) { - CCTK_Exit(*retval, GH); + return CCTK_Exit(*retval, GH); } int FMODIFIER FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH) { - CCTK_ParallelInit(GH); - return 0; + return CCTK_ParallelInit(GH); } int FMODIFIER FORTRAN_NAME(CCTK_Abort)(cGH *GH) |