diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-01-30 11:22:03 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-01-30 11:22:03 +0000 |
commit | 8f50f5ab84e227a1263e59376933495af76d879d (patch) | |
tree | 04f56a858c8846aec12ca46a9ef985170f9fcb78 | |
parent | 1b8c0cf5e3f579ec5a8f99151123e9b1820abc28 (diff) |
Use CCTK_BYTE instead of CCTK_CHAR
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@24 51d2df92-0e4f-0410-a727-bd43d766d6b6
-rw-r--r-- | src/util_Table.F90 | 42 |
1 files changed, 16 insertions, 26 deletions
diff --git a/src/util_Table.F90 b/src/util_Table.F90 index e6ec163..c257b8a 100644 --- a/src/util_Table.F90 +++ b/src/util_Table.F90 @@ -163,17 +163,15 @@ module util_Table character(*) key end subroutine Util_TableSetFPointer - ! a single character + ! integers - subroutine Util_TableSetChar (info, handle, value, key) + subroutine Util_TableSetByte (info, handle, value, key) implicit none integer info integer handle - CCTK_CHAR value + CCTK_BYTE value character(*) key - end subroutine Util_TableSetChar - - ! integers + end subroutine Util_TableSetByte subroutine Util_TableSetInt (info, handle, value, key) implicit none @@ -325,19 +323,16 @@ module util_Table character(*) key end subroutine Util_TableSetFPointerArray - ! arrays of characters (i.e. character strings with known length) - ! note null termination is *not* required or enforced + ! arrays of integers - subroutine Util_TableSetCharArray (info, handle, N_elements, array, key) + subroutine Util_TableSetByteArray (info, handle, N_elements, array, key) implicit none integer info integer handle integer N_elements - CCTK_CHAR array(*) + CCTK_BYTE array(*) character(*) key - end subroutine Util_TableSetCharArray - - ! arrays of integers + end subroutine Util_TableSetByteArray subroutine Util_TableSetIntArray (info, handle, N_elements, array, key) implicit none @@ -504,17 +499,15 @@ module util_Table character(*) key end subroutine Util_TableGetFPointer - ! a single character + ! integers - subroutine Util_TableGetChar (length, handle, value, key) + subroutine Util_TableGetByte (length, handle, value, key) implicit none integer length integer handle - CCTK_CHAR value + CCTK_BYTE value character(*) key - end subroutine Util_TableGetChar - - ! integers + end subroutine Util_TableGetByte subroutine Util_TableGetInt (length, handle, value, key) implicit none @@ -666,19 +659,16 @@ module util_Table character(*) key end subroutine Util_TableGetFPointerArray - ! arrays of characters (i.e. character strings of known length) - ! note null termination is *not* required or enforced + ! integers - subroutine Util_TableGetCharArray (length, handle, N_elements, array, key) + subroutine Util_TableGetByteArray (length, handle, N_elements, array, key) implicit none integer length integer handle integer N_elements - CCTK_CHAR array(*) + CCTK_BYTE array(*) character(*) key - end subroutine Util_TableGetCharArray - - ! integers + end subroutine Util_TableGetByteArray subroutine Util_TableGetIntArray (length, handle, N_elements, array, key) implicit none |