diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-04-04 10:22:26 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-04-04 10:22:26 +0000 |
| commit | 4258a3a495cde923ace5efd14cac27e1ade22bff (patch) | |
| tree | e940b9c66d6a19b082e21e47679768613f179f6c /src/comm | |
| parent | 08d12e97761f89eaa158b0fc5309b3c9f616ab97 (diff) | |
Fortran bindings
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1524 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm')
| -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) |