From 8f50f5ab84e227a1263e59376933495af76d879d Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6>
Date: Sun, 30 Jan 2005 11:22:03 +0000
Subject: Use CCTK_BYTE instead of CCTK_CHAR

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@24 51d2df92-0e4f-0410-a727-bd43d766d6b6
---
 src/util_Table.F90 | 42 ++++++++++++++++--------------------------
 1 file 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
-- 
cgit v1.2.3