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 | |
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')
-rw-r--r-- | src/IO/FortranBindingsIO.c | 35 | ||||
-rw-r--r-- | src/IO/IOMethods.c | 8 | ||||
-rw-r--r-- | src/IO/OverloadIO.c | 2 | ||||
-rw-r--r-- | src/IO/make.code.defn | 4 |
4 files changed, 42 insertions, 7 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); +} + diff --git a/src/IO/IOMethods.c b/src/IO/IOMethods.c index 9ce96f70..6d432d03 100644 --- a/src/IO/IOMethods.c +++ b/src/IO/IOMethods.c @@ -12,11 +12,11 @@ #include <stdio.h> #include <stdlib.h> -#include "flesh.h" -#include "IOMethods.h" -#include "Groups.h" +#include "cctk_Flesh.h" +#include "cctk_IOMethods.h" +#include "cctk_Groups.h" #include "StoreHandledData.h" -#include "FortranString.h" +#include "cctk_FortranString.h" #include "cctk_IO.h" static char *rcsid = "$Header$"; diff --git a/src/IO/OverloadIO.c b/src/IO/OverloadIO.c index 6ac8157c..a0ae644d 100644 --- a/src/IO/OverloadIO.c +++ b/src/IO/OverloadIO.c @@ -13,7 +13,7 @@ #include <stdlib.h> #include <stdarg.h> -#include "flesh.h" +#include "cctk_Flesh.h" #include "OverloadMacros.h" static char *rcsid="$Header$"; diff --git a/src/IO/make.code.defn b/src/IO/make.code.defn index ffd2e938..ec08a54f 100644 --- a/src/IO/make.code.defn +++ b/src/IO/make.code.defn @@ -1,4 +1,4 @@ SRCS=\ IOMethods.c\ -OverloadIO.c - +OverloadIO.c\ +FortranBindingsIO.c |