diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:53:23 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-05-10 11:53:23 +0000 |
| commit | 69a476b27cfef2048bcced5828c3801a0f89efac (patch) | |
| tree | b506fa429f40aebfa8d6964a57c36ef7b9af3a75 /src/main/ActiveThorns.c | |
| parent | 6ad9317e91e9724af3872ef816d3f3c8ec6e5c7d (diff) | |
New macros for Fortran calls
CCTK_Warn -> CCTK_VWarn where appropriate
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1639 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/main/ActiveThorns.c')
| -rw-r--r-- | src/main/ActiveThorns.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/main/ActiveThorns.c b/src/main/ActiveThorns.c index 3bfc37b1..0b1efe57 100644 --- a/src/main/ActiveThorns.c +++ b/src/main/ActiveThorns.c @@ -316,7 +316,8 @@ int CCTK_IsThornActive(const char *name) return retval; } -void FMODIFIER FORTRAN_NAME(CCTK_IsThornActive)(int *retval, ONE_FORTSTRING_ARG) +void CCTK_FCALL CCTK_FNAME(CCTK_IsThornActive) + (int *retval, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(name) *retval = CCTK_IsThornActive(name); @@ -429,7 +430,8 @@ int CCTK_IsThornCompiled(const char *name) return retval; } -void FMODIFIER FORTRAN_NAME(CCTK_IsThornCompiled)(int *retval, ONE_FORTSTRING_ARG) +void CCTK_FCALL CCTK_FNAME(CCTK_IsThornCompiled) + (int *retval, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(name) *retval = CCTK_IsThornCompiled(name); @@ -477,7 +479,7 @@ int CCTK_IsImplementationActive(const char *name) return retval; } -void FMODIFIER FORTRAN_NAME(CCTK_IsImplementationActive) +void CCTK_FCALL CCTK_FNAME(CCTK_IsImplementationActive) (int *retval, ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(name) |