diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-21 15:08:57 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-21 15:08:57 +0000 |
commit | 7c7156ed3d4440e09bca5068bfc4a19d884dca2f (patch) | |
tree | 0dfdd116359d2df1528fbcf1f8bdef32c354da6c /src/IO/IOMethods.c | |
parent | 04486aa90af1c73f82f02a0bfe79a62d6d492d2b (diff) |
Fortran wrappers for CCTK_OutputVar and CCTK_OutputVarAs
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2838 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/IO/IOMethods.c')
-rw-r--r-- | src/IO/IOMethods.c | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/IO/IOMethods.c b/src/IO/IOMethods.c index 898b7483..05409287 100644 --- a/src/IO/IOMethods.c +++ b/src/IO/IOMethods.c @@ -52,6 +52,12 @@ void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarAsByMethod) (int *ierr, const cGH *GH, THREE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarByMethod) (int *ierr, const cGH *GH, TWO_FORTSTRING_ARG); +void CCTK_FCALL CCTK_FNAME (CCTK_OutputVar) + (int *istat, const cGH *GH, ONE_FORTSTRING_ARG); +void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarAs) + (int *istat, const cGH *GH, TWO_FORTSTRING_ARG); + + int CCTKi_TriggerSaysGo (const cGH *GH, int variable); int CCTKi_TriggerAction (void *GH, int variable); @@ -384,6 +390,15 @@ int CCTK_OutputVarAs (const cGH *GH, const char *var, const char *alias) return (retval); } +void CCTK_FCALL CCTK_FNAME (CCTK_OutputVarAs) + (int *istat, const cGH *GH, TWO_FORTSTRING_ARG) +{ + TWO_FORTSTRING_CREATE (var,as); + *istat = CCTK_OutputVarAs (GH, var,as); + free (var); + free (as); +} + /*@@ @routine CCTK_OutputVar @@ -420,6 +435,15 @@ int CCTK_OutputVar (const cGH *GH, const char *var) return (retval); } +void CCTK_FCALL CCTK_FNAME (CCTK_OutputVar) + (int *istat, const cGH *GH, ONE_FORTSTRING_ARG) +{ + ONE_FORTSTRING_CREATE (var); + *istat = CCTK_OutputVar (GH, var); + free (var); +} + + /*@@ @routine CCTK_OutputVarByMethod |