diff options
| author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2007-03-12 11:54:51 +0000 |
|---|---|---|
| committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2007-03-12 11:54:51 +0000 |
| commit | 1201b400831ec15d50381368bccd98c6d9d87b8c (patch) | |
| tree | b6392e4d10628fcb0068cc52f14a2db0bbd241c7 /src/main | |
| parent | cdeb7f2d9bb7fe4cadcf31d9d9e7a3bdaa82047c (diff) | |
added Fortran wrapper for CCTK_ParameterSet()
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4412 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/main')
| -rw-r--r-- | src/main/Parameters.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/main/Parameters.c b/src/main/Parameters.c index cc6334bc..d4c5c0a7 100644 --- a/src/main/Parameters.c +++ b/src/main/Parameters.c @@ -113,6 +113,8 @@ void CCTK_FCALL CCTK_FNAME (CCTK_ParameterSetNotifyUnregister) (CCTK_INT *status, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_ParameterValString) (CCTK_INT *nchars, THREE_FORTSTRING_ARG); +void CCTK_FCALL CCTK_FNAME (CCTK_ParameterSet) + (CCTK_INT *status, THREE_FORTSTRING_ARG); /******************************************************************** ********************* Local Routine Prototypes ********************* @@ -688,6 +690,19 @@ int CCTK_ParameterSet (const char *name, const char *thorn, const char *value) } +void CCTK_FCALL CCTK_FNAME (CCTK_ParameterSet) + (CCTK_INT *status, THREE_FORTSTRING_ARG) +{ + THREE_FORTSTRING_CREATE (name, thorn, value) + + *status = CCTK_ParameterSet (name, thorn, value); + + free (name); + free (thorn); + free (value); +} + + /*@@ @routine CCTK_ParameterGet @date Tue Jun 29 10:28:20 1999 |