From 72f6ba84112d75c88d5f0308a9954da0abae4348 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Fri, 30 Jul 1999 13:08:39 +0000
Subject: Include file name changes, fortran bindings for IO

git-svn-id: http://svn.cactuscode.org/flesh/trunk@831 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/IO/FortranBindingsIO.c | 35 +++++++++++++++++++++++++++++++++++
 src/IO/IOMethods.c         |  8 ++++----
 src/IO/OverloadIO.c        |  2 +-
 src/IO/make.code.defn      |  4 ++--
 4 files changed, 42 insertions(+), 7 deletions(-)
 create mode 100644 src/IO/FortranBindingsIO.c

(limited to 'src/IO')

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
-- 
cgit v1.2.3