diff options
| author | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-05 12:19:47 +0000 |
|---|---|---|
| committer | lanfer <lanfer@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-05 12:19:47 +0000 |
| commit | 7301d576c116f467e2f7d00df879f4eb2ac879c1 (patch) | |
| tree | c643afff9e58851ab285c4e8c5411727dcaf06ef | |
| parent | 3b5b8b4a0e38099c59fbe0698a91e1cd2e3317f0 (diff) | |
Added F wrapper for
CCTK_IsThornActive(retvalue, "ThornName")
CCTK_IsImplementationActive(retvalue, "ImpName")
where retvalue = 1 indicates active
to some degree this can be used in place of #ifdef THORNNAME
gerd
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1008 17b73243-c579-4c4c-a9d2-2d5706c11dac
| -rw-r--r-- | src/main/ActiveThorns.c | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/src/main/ActiveThorns.c b/src/main/ActiveThorns.c index f10a747d..b38bbf6b 100644 --- a/src/main/ActiveThorns.c +++ b/src/main/ActiveThorns.c @@ -313,15 +313,14 @@ int CCTK_IsThornActive(const char *name) return retval; } -/*int FMODIFIER FORTRAN_NAME(CCTK_IsThornActive)(ONE_FORTSTRING_ARG) +void FMODIFIER FORTRAN_NAME(CCTK_IsThornActive)(int *retval, ONE_FORTSTRING_ARG) { - int retval; ONE_FORTSTRING_CREATE(name) - retval = CCTK_IsThornActive(name); + *retval = CCTK_IsThornActive(name); free(name); - return retval; } -*/ + + /*@@ @routine CCTK_IsImplementationActive @date Sun Jul 4 17:46:56 1999 @@ -362,6 +361,14 @@ int CCTK_IsImplementationActive(const char *name) return retval; } +void FMODIFIER FORTRAN_NAME(CCTK_IsImplementationActive) + (int *retval, ONE_FORTSTRING_ARG) +{ + ONE_FORTSTRING_CREATE(name) + *retval = CCTK_IsImplementationActive(name); + free(name); +} + /*@@ @routine CCTKi_ListThorns @date Mon Jul 5 10:02:15 1999 |