diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-01-27 16:11:00 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-01-27 16:11:00 +0000 |
| commit | ca9b8f8e78bf36c4493e64de7a1fb4a174cc8a32 (patch) | |
| tree | 3336d6fe043c92722f8b330788c080202bf2ce27 /src/util/Table.c | |
| parent | aea70b578fc76529f1519ce85b1b4591db01d80d (diff) | |
The Fortran wrappers for Util_Table{Get,Set}Char are broken; remove
them. Technically, Fortran has no character type, but only strings,
hence the interface to that routine needs to be different from C.
Util_TableSetString is still there, used, and works.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3967 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/util/Table.c')
| -rw-r--r-- | src/util/Table.c | 24 |
1 files changed, 2 insertions, 22 deletions
diff --git a/src/util/Table.c b/src/util/Table.c index 0aa20d75..4dad0ee1 100644 --- a/src/util/Table.c +++ b/src/util/Table.c @@ -2144,17 +2144,7 @@ int Util_TableSetChar(int handle, CCTK_CHAR value, const char *key) } #ifdef UTIL_TABLE_FORTRAN_WRAPPERS -void CCTK_FCALL CCTK_FNAME(Util_TableSetChar) - (int *retval, const int *handle, - const CCTK_CHAR *value, ONE_FORTSTRING_ARG); -void CCTK_FCALL CCTK_FNAME(Util_TableSetChar) - (int *retval, const int *handle, - const CCTK_CHAR *value, ONE_FORTSTRING_ARG) -{ - ONE_FORTSTRING_CREATE(key) - *retval = Util_TableSetChar(*handle, *value, key); - free(key); -} +/*** FIXME: no fortran wrapper yet ***/ #endif /* UTIL_TABLE_FORTRAN_WRAPPERS */ /**********************************************************/ @@ -3181,17 +3171,7 @@ int Util_TableGetChar(int handle, CCTK_CHAR *value, const char *key) } #ifdef UTIL_TABLE_FORTRAN_WRAPPERS -void CCTK_FCALL CCTK_FNAME (Util_TableGetChar) - (int *retval, const int *handle, - CCTK_CHAR *value, ONE_FORTSTRING_ARG); -void CCTK_FCALL CCTK_FNAME (Util_TableGetChar) - (int *retval, const int *handle, - CCTK_CHAR *value, ONE_FORTSTRING_ARG) -{ - ONE_FORTSTRING_CREATE (key) - *retval = Util_TableGetChar (*handle, value, key); - free (key); -} +/*** FIXME: no fortran wrapper yet ***/ #endif /* UTIL_TABLE_FORTRAN_WRAPPERS */ /**********************************************************/ |