diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-07-15 14:22:11 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2000-07-15 14:22:11 +0000 |
| commit | 93338911dc50bd8c5a285e11cf89093c3ffd5bd2 (patch) | |
| tree | 040878b59b826e1ba9a4374471e8b219de31c3d2 /src/main/ActiveThorns.c | |
| parent | 84a711ce3ea5c2b55931d55cafae390852f73124 (diff) | |
IsThornActive is a fortran function not a subroutine
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1750 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 0b1efe57..fb08b177 100644 --- a/src/main/ActiveThorns.c +++ b/src/main/ActiveThorns.c @@ -316,12 +316,14 @@ int CCTK_IsThornActive(const char *name) return retval; } -void CCTK_FCALL CCTK_FNAME(CCTK_IsThornActive) - (int *retval, ONE_FORTSTRING_ARG) +int CCTK_FCALL CCTK_FNAME(CCTK_IsThornActive) + (ONE_FORTSTRING_ARG) { + int retval; ONE_FORTSTRING_CREATE(name) - *retval = CCTK_IsThornActive(name); + retval = CCTK_IsThornActive(name); free(name); + return retval; } /*@@ |