Use new HAVE_CCTK_<datatype> macro names.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@15 51d2df92-0e4f-0410-a727-bd43d766d6b6

1 files changed, 146 insertions, 146 deletions

diff --git a/src/util_Table.F90 b/src/util_Table.F90
index e3c127b..e6ec163 100644
--- a/src/util_Table.F90
+++ b/src/util_Table.F90
@@ -13,49 +13,49 @@
 
 module util_Table
   implicit none
-  
+
   interface
-     
+
      ! create/destroy
-     
+
      subroutine Util_TableCreate (handle, flags)
        implicit none
        integer               handle
        integer               flags
      end subroutine Util_TableCreate
-     
+
      subroutine Util_TableClone (ierr, handle)
        implicit none
        integer               ierr
        integer               handle
      end subroutine Util_TableClone
-     
+
      subroutine Util_TableDestroy (ierr, handle)
        implicit none
        integer               ierr
        integer               handle
      end subroutine Util_TableDestroy
-     
+
      ! query
-     
+
      subroutine Util_TableQueryFlags (flags, handle)
        implicit none
        integer               flags
        integer               handle
      end subroutine Util_TableQueryFlags
-     
+
      subroutine Util_TableQueryNKeys (nkeys, handle)
        implicit none
        integer               nkeys
        integer               handle
      end subroutine Util_TableQueryNKeys
-     
+
      subroutine Util_TableQueryMaxKeyLength (maxkeylength, handle)
        implicit none
        integer               maxkeylength
        integer               handle
      end subroutine Util_TableQueryMaxKeyLength
-     
+
      subroutine Util_TableQueryValueInfo &
           (keyinfo, handle, type_code, N_elements, key)
        implicit none
@@ -65,24 +65,24 @@ module util_Table
        CCTK_INT              N_elements
        character(*)          key
      end subroutine Util_TableQueryValueInfo
-     
+
      ! misc stuff
-     
+
      subroutine Util_TableDeleteKey (ierr, handle, key)
        implicit none
        integer               ierr
        integer               handle
        character(*)          key
      end subroutine Util_TableDeleteKey
-     
+
      ! convenience routines to create and/or set from a "parameter-file" string
-     
+
      subroutine Util_TableCreateFromString (handle, string)
        implicit none
        integer               handle
        character(*)          string
      end subroutine Util_TableCreateFromString
-     
+
      ! set/get a C-style null-terminated character string
      subroutine Util_TableSetString (info, handle, string, key)
        implicit none
@@ -91,7 +91,7 @@ module util_Table
        character(*)          string
        character(*)          key
      end subroutine Util_TableSetString
-     
+
      subroutine Util_TableGetString (length, handle, buffer, key)
        implicit none
        integer               length
@@ -99,9 +99,9 @@ module util_Table
        character(*)          buffer
        character(*)          key
      end subroutine Util_TableGetString
-     
+
      ! set/get generic types described by CCTK_VARIABLE_* type codes
-     
+
      subroutine Util_TableSetGeneric (info, handle, type_code, value_ptr, key)
        implicit none
        integer               info
@@ -110,7 +110,7 @@ module util_Table
        CCTK_POINTER_TO_CONST value_ptr
        character(*)          key
      end subroutine Util_TableSetGeneric
-     
+
      subroutine Util_TableSetGenericArray &
           (info, handle, type_code, N_elements, array, key)
        implicit none
@@ -121,7 +121,7 @@ module util_Table
        CCTK_POINTER_TO_CONST array(*)
        character(*)          key
      end subroutine Util_TableSetGenericArray
-     
+
      subroutine Util_TableGetGeneric &
           (length, handle, type_code, value_ptr, key)
        implicit none
@@ -131,7 +131,7 @@ module util_Table
        CCTK_POINTER          value_ptr
        character(*)          key
      end subroutine Util_TableGetGeneric
-     
+
      subroutine Util_TableGetGenericArray &
           (length, handle, type_code, N_elements, array, key)
        implicit none
@@ -142,11 +142,11 @@ module util_Table
        CCTK_POINTER          array(*)
        character(*)          key
      end subroutine Util_TableGetGenericArray
-     
+
      ! set routines
-     
+
      ! pointers
-     
+
      subroutine Util_TableSetPointer (info, handle, value, key)
        implicit none
        integer               info
@@ -154,7 +154,7 @@ module util_Table
        CCTK_POINTER          value
        character(*)          key
      end subroutine Util_TableSetPointer
-     
+
      subroutine Util_TableSetFPointer (info, handle, value, key)
        implicit none
        integer               info
@@ -162,9 +162,9 @@ module util_Table
        CCTK_FPOINTER         value
        character(*)          key
      end subroutine Util_TableSetFPointer
-     
+
      ! a single character
-     
+
      subroutine Util_TableSetChar (info, handle, value, key)
        implicit none
        integer               info
@@ -172,9 +172,9 @@ module util_Table
        CCTK_CHAR             value
        character(*)          key
      end subroutine Util_TableSetChar
-     
+
      ! integers
-     
+
      subroutine Util_TableSetInt (info, handle, value, key)
        implicit none
        integer               info
@@ -182,7 +182,7 @@ module util_Table
        CCTK_INT              value
        character(*)          key
      end subroutine Util_TableSetInt
-     
+
 #ifdef CCTK_INT1
      subroutine Util_TableSetInt1 (info, handle, value, key)
        implicit none
@@ -192,7 +192,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt1
 #endif
-     
+
 #ifdef CCTK_INT2
      subroutine Util_TableSetInt2 (info, handle, value, key)
        implicit none
@@ -202,7 +202,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt2
 #endif
-     
+
 #ifdef CCTK_INT4
      subroutine Util_TableSetInt4 (info, handle, value, key)
        implicit none
@@ -212,7 +212,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt4
 #endif
-     
+
 #ifdef CCTK_INT8
      subroutine Util_TableSetInt8 (info, handle, value, key)
        implicit none
@@ -222,9 +222,9 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt8
 #endif
-     
+
      ! real numbers
-     
+
      subroutine Util_TableSetReal (info, handle, value, key)
        implicit none
        integer               info
@@ -232,8 +232,8 @@ module util_Table
        CCTK_REAL             value
        character(*)          key
      end subroutine Util_TableSetReal
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableSetReal4 (info, handle, value, key)
        implicit none
        integer               info
@@ -242,8 +242,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetReal4
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableSetReal8 (info, handle, value, key)
        implicit none
        integer               info
@@ -252,8 +252,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetReal8
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableSetReal16 (info, handle, value, key)
        implicit none
        integer               info
@@ -262,9 +262,9 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetReal16
 #endif
-     
+
      ! complex numbers
-     
+
      subroutine Util_TableSetComplex (info, handle, value, key)
        implicit none
        integer               info
@@ -272,8 +272,8 @@ module util_Table
        CCTK_COMPLEX          value
        character(*)          key
      end subroutine Util_TableSetComplex
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableSetComplex8 (info, handle, value, key)
        implicit none
        integer               info
@@ -282,8 +282,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetComplex8
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableSetComplex16 (info, handle, value, key)
        implicit none
        integer               info
@@ -292,8 +292,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetComplex16
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableSetComplex32 (info, handle, value, key)
        implicit none
        integer               info
@@ -302,9 +302,9 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetComplex32
 #endif
-     
+
      ! arrays of pointers
-     
+
      subroutine Util_TableSetPointerArray &
           (info, handle, N_elements, array, key)
        implicit none
@@ -314,7 +314,7 @@ module util_Table
        CCTK_POINTER          array(*)
        character(*)          key
      end subroutine Util_TableSetPointerArray
-     
+
      subroutine Util_TableSetFPointerArray &
           (info, handle, N_elements, array, key)
        implicit none
@@ -324,10 +324,10 @@ module util_Table
        CCTK_FPOINTER         array(*)
        character(*)          key
      end subroutine Util_TableSetFPointerArray
-     
+
      ! arrays of characters (i.e. character strings with known length)
      ! note null termination is *not* required or enforced
-     
+
      subroutine Util_TableSetCharArray (info, handle, N_elements, array, key)
        implicit none
        integer               info
@@ -336,9 +336,9 @@ module util_Table
        CCTK_CHAR             array(*)
        character(*)          key
      end subroutine Util_TableSetCharArray
-     
+
      ! arrays of integers
-     
+
      subroutine Util_TableSetIntArray (info, handle, N_elements, array, key)
        implicit none
        integer               info
@@ -347,7 +347,7 @@ module util_Table
        CCTK_INT              array(*)
        character(*)          key
      end subroutine Util_TableSetIntArray
-     
+
 #ifdef CCTK_INT1
      subroutine Util_TableSetInt1Array (info, handle, N_elements, array, key)
        implicit none
@@ -358,7 +358,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt1Array
 #endif
-     
+
 #ifdef CCTK_INT2
      subroutine Util_TableSetInt2Array (info, handle, N_elements, array, key)
        implicit none
@@ -369,7 +369,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt2Array
 #endif
-     
+
 #ifdef CCTK_INT4
      subroutine Util_TableSetInt4Array (info, handle, N_elements, array, key)
        implicit none
@@ -380,7 +380,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt4Array
 #endif
-     
+
 #ifdef CCTK_INT8
      subroutine Util_TableSetInt8Array (info, handle, N_elements, array, key)
        implicit none
@@ -391,9 +391,9 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetInt8Array
 #endif
-     
+
      ! arrays of real numbers
-     
+
      subroutine Util_TableSetRealArray (info, handle, N_elements, array, key)
        implicit none
        integer               info
@@ -402,8 +402,8 @@ module util_Table
        CCTK_REAL             array(*)
        character(*)          key
      end subroutine Util_TableSetRealArray
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableSetReal4Array (info, handle, N_elements, array, key)
        implicit none
        integer               info
@@ -413,8 +413,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetReal4Array
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableSetReal8Array (info, handle, N_elements, array, key)
        implicit none
        integer               info
@@ -424,8 +424,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetReal8Array
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableSetReal16Array (info, handle, N_elements, array, key)
        implicit none
        integer               info
@@ -435,9 +435,9 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetReal16Array
 #endif
-     
+
      ! arrays of complex numbers
-     
+
      subroutine Util_TableSetComplexArray &
           (info, handle, N_elements, array, key)
        implicit none
@@ -447,8 +447,8 @@ module util_Table
        CCTK_COMPLEX          array(*)
        character(*)          key
      end subroutine Util_TableSetComplexArray
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableSetComplex8Array &
           (info, handle, N_elements, array, key)
        implicit none
@@ -459,8 +459,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetComplex8Array
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableSetComplex16Array &
           (info, handle, N_elements, array, key)
        implicit none
@@ -471,8 +471,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetComplex16Array
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableSetComplex32Array &
           (info, handle, N_elements, array, key)
        implicit none
@@ -483,11 +483,11 @@ module util_Table
        character(*)          key
      end subroutine Util_TableSetComplex32Array
 #endif
-     
+
      ! get routines
-     
+
      ! pointers
-     
+
      subroutine Util_TableGetPointer (length, handle, value, key)
        implicit none
        integer               length
@@ -495,7 +495,7 @@ module util_Table
        CCTK_POINTER          value
        character(*)          key
      end subroutine Util_TableGetPointer
-     
+
      subroutine Util_TableGetFPointer (length, handle, value, key)
        implicit none
        integer               length
@@ -503,9 +503,9 @@ module util_Table
        CCTK_FPOINTER         value
        character(*)          key
      end subroutine Util_TableGetFPointer
-     
+
      ! a single character
-     
+
      subroutine Util_TableGetChar (length, handle, value, key)
        implicit none
        integer               length
@@ -513,9 +513,9 @@ module util_Table
        CCTK_CHAR             value
        character(*)          key
      end subroutine Util_TableGetChar
-     
+
      ! integers
-     
+
      subroutine Util_TableGetInt (length, handle, value, key)
        implicit none
        integer               length
@@ -523,7 +523,7 @@ module util_Table
        CCTK_INT              value
        character(*)          key
      end subroutine Util_TableGetInt
-     
+
 #ifdef CCTK_INT1
      subroutine Util_TableGetInt1 (length, handle, value, key)
        implicit none
@@ -533,7 +533,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetInt1
 #endif
-     
+
 #ifdef CCTK_INT2
      subroutine Util_TableGetInt2 (length, handle, value, key)
        implicit none
@@ -543,7 +543,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetInt2
 #endif
-     
+
 #ifdef CCTK_INT4
      subroutine Util_TableGetInt4 (length, handle, value, key)
        implicit none
@@ -553,7 +553,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetInt4
 #endif
-     
+
 #ifdef CCTK_INT8
      subroutine Util_TableGetInt8 (length, handle, value, key)
        implicit none
@@ -563,9 +563,9 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetInt8
 #endif
-     
+
      ! real numbers
-     
+
      subroutine Util_TableGetReal (length, handle, value, key)
        implicit none
        integer               length
@@ -573,8 +573,8 @@ module util_Table
        CCTK_REAL             value
        character(*)          key
      end subroutine Util_TableGetReal
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableGetReal4 (length, handle, value, key)
        implicit none
        integer               length
@@ -583,8 +583,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetReal4
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableGetReal8 (length, handle, value, key)
        implicit none
        integer               length
@@ -593,8 +593,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetReal8
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableGetReal16 (length, handle, value, key)
        implicit none
        integer               length
@@ -605,7 +605,7 @@ module util_Table
 #endif
 
      ! complex numbers
-     
+
      subroutine Util_TableGetComplex (length, handle, value, key)
        implicit none
        integer               length
@@ -613,8 +613,8 @@ module util_Table
        CCTK_COMPLEX          value
        character(*)          key
      end subroutine Util_TableGetComplex
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableGetComplex8 (length, handle, value, key)
        implicit none
        integer               length
@@ -623,8 +623,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetComplex8
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableGetComplex16 (length, handle, value, key)
        implicit none
        integer               length
@@ -633,8 +633,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetComplex16
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableGetComplex32 (length, handle, value, key)
        implicit none
        integer               length
@@ -643,9 +643,9 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetComplex32
 #endif
-     
+
      ! arrays of pointers
-     
+
      subroutine Util_TableGetPointerArray &
           (length, handle, N_elements, array, key)
        implicit none
@@ -655,7 +655,7 @@ module util_Table
        CCTK_POINTER          array(*)
        character(*)          key
      end subroutine Util_TableGetPointerArray
-     
+
      subroutine Util_TableGetFPointerArray &
           (length, handle, N_elements, array, key)
        implicit none
@@ -665,10 +665,10 @@ module util_Table
        CCTK_FPOINTER         array(*)
        character(*)          key
      end subroutine Util_TableGetFPointerArray
-     
+
      ! arrays of characters (i.e. character strings of known length)
      ! note null termination is *not* required or enforced
-     
+
      subroutine Util_TableGetCharArray (length, handle, N_elements, array, key)
        implicit none
        integer               length
@@ -677,9 +677,9 @@ module util_Table
        CCTK_CHAR             array(*)
        character(*)          key
      end subroutine Util_TableGetCharArray
-     
+
      ! integers
-     
+
      subroutine Util_TableGetIntArray (length, handle, N_elements, array, key)
        implicit none
        integer               length
@@ -688,7 +688,7 @@ module util_Table
        CCTK_INT              array(*)
        character(*)          key
      end subroutine Util_TableGetIntArray
-     
+
 #ifdef CCTK_INT1
      subroutine Util_TableGetInt1Array (length, handle, N_elements, array, key)
        implicit none
@@ -699,7 +699,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetInt1Array
 #endif
-     
+
 #ifdef CCTK_INT2
      subroutine Util_TableGetInt2Array (length, handle, N_elements, array, key)
        implicit none
@@ -710,7 +710,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetInt2Array
 #endif
-     
+
 #ifdef CCTK_INT4
      subroutine Util_TableGetInt4Array (length, handle, N_elements, array, key)
        implicit none
@@ -721,7 +721,7 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetInt4Array
 #endif
-     
+
 #ifdef CCTK_INT8
      subroutine Util_TableGetInt8Array (length, handle, N_elements, array, key)
        implicit none
@@ -734,7 +734,7 @@ module util_Table
 #endif
 
      ! real numbers
-     
+
      subroutine Util_TableGetRealArray (length, handle, N_elements, array, key)
        implicit none
        integer               length
@@ -743,8 +743,8 @@ module util_Table
        CCTK_REAL             array(*)
        character(*)          key
      end subroutine Util_TableGetRealArray
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableGetReal4Array &
           (length, handle, N_elements, array, key)
        implicit none
@@ -755,8 +755,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetReal4Array
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableGetReal8Array &
           (length, handle, N_elements, array, key)
        implicit none
@@ -767,8 +767,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetReal8Array
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableGetReal16Array &
           (length, handle, N_elements, array, key)
        implicit none
@@ -781,7 +781,7 @@ module util_Table
 #endif
 
      ! complex numbers
-     
+
      subroutine Util_TableGetComplexArray &
           (length, handle, N_elements, array, key)
        implicit none
@@ -791,8 +791,8 @@ module util_Table
        CCTK_COMPLEX          array(*)
        character(*)          key
      end subroutine Util_TableGetComplexArray
-     
-#if CCTK_HAVE_REAL4
+
+#ifdef HAVE_CCTK_REAL4
      subroutine Util_TableGetComplex8Array &
           (length, handle, N_elements, array, key)
        implicit none
@@ -803,8 +803,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetComplex8Array
 #endif
-     
-#if CCTK_HAVE_REAL8
+
+#ifdef HAVE_CCTK_REAL8
      subroutine Util_TableGetComplex16Array &
           (length, handle, N_elements, array, key)
        implicit none
@@ -815,8 +815,8 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetComplex16Array
 #endif
-     
-#if CCTK_HAVE_REAL16
+
+#ifdef HAVE_CCTK_REAL16
      subroutine Util_TableGetComplex32Array &
           (length, handle, N_elements, array, key)
        implicit none
@@ -827,51 +827,51 @@ module util_Table
        character(*)          key
      end subroutine Util_TableGetComplex32Array
 #endif
-     
+
      ! Table Iterator API
-     
+
      ! create/destroy
-     
+
      subroutine Util_TableItCreate (ihandle, handle)
        implicit none
        integer               ihandle
        integer               handle
      end subroutine Util_TableItCreate
-     
+
      subroutine Util_TableItClone (newihandle, ihandle)
        implicit none
        integer               newihandle
        integer               ihandle
      end subroutine Util_TableItClone
-     
+
      subroutine Util_TableItDestroy (ierr, ihandle)
        implicit none
        integer               ierr
        integer               ihandle
      end subroutine Util_TableItDestroy
-     
+
      ! test for "null-pointer" state
-     
+
      subroutine Util_TableItQueryIsNull (info, ihandle)
        implicit none
        integer               info
        integer               ihandle
      end subroutine Util_TableItQueryIsNull
-     
+
      subroutine Util_TableItQueryIsNonNull (info, ihandle)
        implicit none
        integer               info
        integer               ihandle
      end subroutine Util_TableItQueryIsNonNull
-     
+
      ! query what the iterator points to
-     
+
      subroutine Util_TableItQueryTableHandle (handle, ihandle)
        implicit none
        integer               handle
        integer               ihandle
      end subroutine Util_TableItQueryTableHandle
-     
+
      subroutine Util_TableItQueryKeyValueInfo &
           (length, ihandle, key_buffer, type_code, N_elements)
        implicit none
@@ -881,34 +881,34 @@ module util_Table
        CCTK_INT              type_code
        CCTK_INT              N_elements
      end subroutine Util_TableItQueryKeyValueInfo
-     
+
      ! change value of iterator
-     
+
      subroutine Util_TableItAdvance (info, ihandle)
        implicit none
        integer               info
        integer               ihandle
      end subroutine Util_TableItAdvance
-     
+
      subroutine Util_TableItResetToStart (info, ihandle)
        implicit none
        integer               info
        integer               ihandle
      end subroutine Util_TableItResetToStart
-     
+
      subroutine Util_TableItSetToNull (ierr, ihandle)
        implicit none
        integer               ierr
        integer               ihandle
      end subroutine Util_TableItSetToNull
-     
+
      subroutine Util_TableItSetToKey (ierr, ihandle, key)
        implicit none
        integer               ierr
        integer               ihandle
        character(*)          key
      end subroutine Util_TableItSetToKey
-     
+
   end interface
-  
+
 end module util_Table