Added fortran wrappers for Util_TableCreateFromString() and Util_TableDestroy().

More to come.


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

1 files changed, 23 insertions, 0 deletions

diff --git a/src/util/Table.c b/src/util/Table.c
index d6537ac3..7f9f863f 100644
--- a/src/util/Table.c
+++ b/src/util/Table.c
@@ -113,6 +113,7 @@ typedef int bool;
 #include "cctk_Constants.h"
 #include "cctk_Groups.h"
 #include "cctk_Flesh.h"
+#include "cctk_FortranString.h"
 
 #include "util_ErrorCodes.h"
 #include "util_String.h"
@@ -278,6 +279,14 @@ void **ip_array = NULL;
 #define min(x,y)        ((x < y) ? (x) : (y))
 
 /******************************************************************************/
+/***** Prototypes for Fortran Wrappers ****************************************/
+/******************************************************************************/
+void CCTK_FCALL CCTK_FNAME (Util_TableCreateFromString)
+                           (int *retval, ONE_FORTSTRING_ARG);
+void CCTK_FCALL CCTK_FNAME (Util_TableDestroy)
+                           (int *retval, const int *handle);
+
+/******************************************************************************/
 /***** Prototypes for Functions Private to This File **************************/
 /******************************************************************************/
 
@@ -650,6 +659,12 @@ int Util_TableDestroy(int handle)
   return 0;
 }
 
+void CCTK_FCALL CCTK_FNAME (Util_TableDestroy)
+                           (int *retval, const int *handle)
+{
+  *retval = Util_TableDestroy (*handle);
+}
+
 /******************************************************************************/
 
 /*@@
@@ -958,6 +973,14 @@ int Util_TableCreateFromString(const char string[])
     }
 }
 
+void CCTK_FCALL CCTK_FNAME (Util_TableCreateFromString)
+                           (int *retval, ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE (string)
+  *retval = Util_TableCreateFromString (string);
+  free (string);
+}
+
 /******************************************************************************/
 
 /*@@