diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-30 13:08:39 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-30 13:08:39 +0000 |
commit | 72f6ba84112d75c88d5f0308a9954da0abae4348 (patch) | |
tree | 5c41755cc7da2208568897d08143f3e71c7d21dc /src/IO/FortranBindingsIO.c | |
parent | 4c2cd92ef8bed13598d03bec6d00cdcc229a140c (diff) |
Include file name changes, fortran bindings for IO
git-svn-id: http://svn.cactuscode.org/flesh/trunk@831 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/IO/FortranBindingsIO.c')
-rw-r--r-- | src/IO/FortranBindingsIO.c | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/IO/FortranBindingsIO.c b/src/IO/FortranBindingsIO.c new file mode 100644 index 00000000..c1908bed --- /dev/null +++ b/src/IO/FortranBindingsIO.c @@ -0,0 +1,35 @@ + /*@@ + @file FortranBindingsIO.c + @date Thu Feb 18 14:27:18 1999 + @author Gabrielle Allen + @desc + Fortran bindings for the IO functions + @enddesc + @@*/ + +#include <stdlib.h> +#include "cctk_Flesh.h" +#include "cctk_FortranString.h" +#include "cctk_Comm.h" + +void FMODIFIER FORTRAN_NAME(CCTK_OutputVarAsByMethod)(int *istat, cGH *GH, THREE_FORTSTRINGS_ARGS) +{ + THREE_FORTSTRINGS_CREATE(variable,method,alias); + *istat = CCTK_OutputVarAsByMethod(GH,variable,method,alias); + free(variable); + free(method); + free(alias); +} + +void FMODIFIER FORTRAN_NAME(CCTK_OutputGH)(int *istat,cGH *GH) +{ + *istat = CCTK_OutputGH(GH); +} + +void FMODIFIER FORTRAN_NAME(CCTK_RegisterIOMethod)(int *handle, ONE_FORTSTRING_ARG) +{ + ONE_FORTSTRING_CREATE(name); + *handle = CCTK_RegisterIOMethod(name); + free(name); +} + |