diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:47:43 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:47:43 +0000 |
commit | 156ca7c447ef63ace625ff58187260a371ad5517 (patch) | |
tree | f7eb3df8e449fda25929824836c6b6130efa9e9b /src/comm/OverloadComm.c | |
parent | 96c60b1271238d6e7361c149596046d8839355ae (diff) |
New macros for fortran calls
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1637 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm/OverloadComm.c')
-rw-r--r-- | src/comm/OverloadComm.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/comm/OverloadComm.c b/src/comm/OverloadComm.c index 9a62a3e6..1bb861f6 100644 --- a/src/comm/OverloadComm.c +++ b/src/comm/OverloadComm.c @@ -107,23 +107,23 @@ int CCTKi_SetupCommFunctions(void) -int FMODIFIER FORTRAN_NAME(CCTK_Exit)(int *retval, cGH *GH) +int CCTK_FCALL CCTK_FNAME(CCTK_Exit)(int *retval, cGH *GH) { return CCTK_Exit(*retval, GH); } -int FMODIFIER FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH) +int CCTK_FCALL CCTK_FNAME(CCTK_ParallelInit)(cGH *GH) { return CCTK_ParallelInit(GH); } -int FMODIFIER FORTRAN_NAME(CCTK_Abort)(cGH *GH) +int CCTK_FCALL CCTK_FNAME(CCTK_Abort)(cGH *GH) { CCTK_Abort(GH); return 0; } -int FMODIFIER FORTRAN_NAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG) +int CCTK_FCALL CCTK_FNAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(group_name) CCTK_SyncGroup(GH,group_name); @@ -131,17 +131,17 @@ int FMODIFIER FORTRAN_NAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG) return 0; } -int FMODIFIER FORTRAN_NAME(CCTK_nProcs)(cGH *GH) +int CCTK_FCALL CCTK_FNAME(CCTK_nProcs)(cGH *GH) { return CCTK_nProcs(GH); } -int FMODIFIER FORTRAN_NAME(CCTK_MyProc)(cGH *GH) +int CCTK_FCALL CCTK_FNAME(CCTK_MyProc)(cGH *GH) { return CCTK_MyProc(GH); } -int FMODIFIER FORTRAN_NAME(CCTK_Barrier)(cGH *GH) +int CCTK_FCALL CCTK_FNAME(CCTK_Barrier)(cGH *GH) { return CCTK_Barrier(GH); } |