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/GHExtensions.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/GHExtensions.c')
| -rw-r--r-- | src/main/GHExtensions.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/main/GHExtensions.c b/src/main/GHExtensions.c index 1206f318..f7962096 100644 --- a/src/main/GHExtensions.c +++ b/src/main/GHExtensions.c @@ -466,7 +466,8 @@ int CCTK_GHExtensionHandle(const char *name) return Util_GetHandle(GHExtensions, name, NULL); } -void FMODIFIER FORTRAN_NAME(CCTK_GHExtensionHandle)(int *handle,ONE_FORTSTRING_ARG) +void CCTK_FCALL CCTK_FNAME(CCTK_GHExtensionHandle) + (int *handle,ONE_FORTSTRING_ARG) { ONE_FORTSTRING_CREATE(name) *handle = CCTK_GHExtensionHandle(name); |