Started added fortran bindings for the comm functions callable from

fortran

Gab


git-svn-id: http://svn.cactuscode.org/flesh/trunk@308 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 29 insertions, 0 deletions

diff --git a/src/comm/FortranBindings.c b/src/comm/FortranBindings.c
new file mode 100644
index 00000000..7d073789
--- /dev/null
+++ b/src/comm/FortranBindings.c
@@ -0,0 +1,29 @@
+ /*@@
+   @file      FortranBindings.c
+   @date      Thu Feb  18 14:27:18 1999
+   @author    Gabrielle Allen
+   @desc 
+   Fortran bindings for the comm functions
+   @enddesc 
+ @@*/
+
+#include "flesh.h"
+#include "Comm.h"
+
+int FORTRAN_NAME(CCTK_Exit)(cGH *GH)
+{
+  CCTK_Exit(GH);
+  return 0;
+}
+
+int FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH)
+{
+  CCTK_ParallelInit(GH);
+  return 0;
+}
+
+int FORTRAN_NAME(CCTK_Abort)(cGH *GH)
+{
+  CCTK_Abort(GH);
+  return 0;
+}