From 85a630586ad247e013f35ecf0bded313c388954d Mon Sep 17 00:00:00 2001 From: tradke Date: Sat, 26 Jun 2004 17:37:17 +0000 Subject: Use new HAVE_CCTK_ macro names. git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@15 51d2df92-0e4f-0410-a727-bd43d766d6b6 --- src/util_Table.F90 | 292 ++++++++++++++++++++++++++--------------------------- 1 file 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 -- cgit v1.2.3