diff options
author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-12-11 16:06:12 +0000 |
---|---|---|
committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-12-11 16:06:12 +0000 |
commit | b577eeff71d6a94ad94600bc069e8976b4d5766c (patch) | |
tree | 1f52d1b1c3a015ea7938109a79dbc8867cf89c82 | |
parent | f710dbfef0fde9cb180eead746284681e3a2dd18 (diff) |
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
-rw-r--r-- | src/util/Table.c | 23 |
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); +} + /******************************************************************************/ /*@@ |