Header for routines to register and get Fortran Wrappers.

Tom


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

1 files changed, 26 insertions, 0 deletions

diff --git a/src/include/cctk_FortranWrappers.h b/src/include/cctk_FortranWrappers.h
new file mode 100644
index 00000000..7ff11369
--- /dev/null
+++ b/src/include/cctk_FortranWrappers.h
@@ -0,0 +1,26 @@
+ /*@@
+   @header    cctk_FortranWrappers.h
+   @date      Sat Sep 18 00:52:35 1999
+   @author    Tom Goodale
+   @desc 
+   Routines for dealing with Fortran wrappers
+   @enddesc 
+ @@*/
+
+#ifndef __CCTK_FORTRANWRAPPERS_H_
+#define __CCTK_FORTRANWRAPPERS_H_
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+int CCTK_RegisterFortranWrapper(const char *name, int (*function)(void *, void *));
+
+int (*CCTK_FortranWrapper(const char *name))(void *, void *);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif
+