From 2f030c11b1b76af7feef10479a803f822c539644 Mon Sep 17 00:00:00 2001 From: tradke Date: Sun, 20 Jun 2004 13:18:52 +0000 Subject: Fixed typo in macros names in my previous commit: HAVE_CCTK_REAL* should read CCTK_HAVE_REAL*. git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@14 51d2df92-0e4f-0410-a727-bd43d766d6b6 --- src/util_Table.F90 | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/src/util_Table.F90 b/src/util_Table.F90 index 17768b8..e3c127b 100644 --- a/src/util_Table.F90 +++ b/src/util_Table.F90 @@ -233,7 +233,7 @@ module util_Table character(*) key end subroutine Util_TableSetReal -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableSetReal4 (info, handle, value, key) implicit none integer info @@ -243,7 +243,7 @@ module util_Table end subroutine Util_TableSetReal4 #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableSetReal8 (info, handle, value, key) implicit none integer info @@ -253,7 +253,7 @@ module util_Table end subroutine Util_TableSetReal8 #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableSetReal16 (info, handle, value, key) implicit none integer info @@ -273,7 +273,7 @@ module util_Table character(*) key end subroutine Util_TableSetComplex -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableSetComplex8 (info, handle, value, key) implicit none integer info @@ -283,7 +283,7 @@ module util_Table end subroutine Util_TableSetComplex8 #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableSetComplex16 (info, handle, value, key) implicit none integer info @@ -293,7 +293,7 @@ module util_Table end subroutine Util_TableSetComplex16 #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableSetComplex32 (info, handle, value, key) implicit none integer info @@ -403,7 +403,7 @@ module util_Table character(*) key end subroutine Util_TableSetRealArray -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableSetReal4Array (info, handle, N_elements, array, key) implicit none integer info @@ -414,7 +414,7 @@ module util_Table end subroutine Util_TableSetReal4Array #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableSetReal8Array (info, handle, N_elements, array, key) implicit none integer info @@ -425,7 +425,7 @@ module util_Table end subroutine Util_TableSetReal8Array #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableSetReal16Array (info, handle, N_elements, array, key) implicit none integer info @@ -448,7 +448,7 @@ module util_Table character(*) key end subroutine Util_TableSetComplexArray -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableSetComplex8Array & (info, handle, N_elements, array, key) implicit none @@ -460,7 +460,7 @@ module util_Table end subroutine Util_TableSetComplex8Array #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableSetComplex16Array & (info, handle, N_elements, array, key) implicit none @@ -472,7 +472,7 @@ module util_Table end subroutine Util_TableSetComplex16Array #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableSetComplex32Array & (info, handle, N_elements, array, key) implicit none @@ -574,7 +574,7 @@ module util_Table character(*) key end subroutine Util_TableGetReal -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableGetReal4 (length, handle, value, key) implicit none integer length @@ -584,7 +584,7 @@ module util_Table end subroutine Util_TableGetReal4 #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableGetReal8 (length, handle, value, key) implicit none integer length @@ -594,7 +594,7 @@ module util_Table end subroutine Util_TableGetReal8 #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableGetReal16 (length, handle, value, key) implicit none integer length @@ -614,7 +614,7 @@ module util_Table character(*) key end subroutine Util_TableGetComplex -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableGetComplex8 (length, handle, value, key) implicit none integer length @@ -624,7 +624,7 @@ module util_Table end subroutine Util_TableGetComplex8 #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableGetComplex16 (length, handle, value, key) implicit none integer length @@ -634,7 +634,7 @@ module util_Table end subroutine Util_TableGetComplex16 #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableGetComplex32 (length, handle, value, key) implicit none integer length @@ -744,7 +744,7 @@ module util_Table character(*) key end subroutine Util_TableGetRealArray -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableGetReal4Array & (length, handle, N_elements, array, key) implicit none @@ -756,7 +756,7 @@ module util_Table end subroutine Util_TableGetReal4Array #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableGetReal8Array & (length, handle, N_elements, array, key) implicit none @@ -768,7 +768,7 @@ module util_Table end subroutine Util_TableGetReal8Array #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableGetReal16Array & (length, handle, N_elements, array, key) implicit none @@ -792,7 +792,7 @@ module util_Table character(*) key end subroutine Util_TableGetComplexArray -#if HAVE_CCTK_REAL4 +#if CCTK_HAVE_REAL4 subroutine Util_TableGetComplex8Array & (length, handle, N_elements, array, key) implicit none @@ -804,7 +804,7 @@ module util_Table end subroutine Util_TableGetComplex8Array #endif -#if HAVE_CCTK_REAL8 +#if CCTK_HAVE_REAL8 subroutine Util_TableGetComplex16Array & (length, handle, N_elements, array, key) implicit none @@ -816,7 +816,7 @@ module util_Table end subroutine Util_TableGetComplex16Array #endif -#if HAVE_CCTK_REAL16 +#if CCTK_HAVE_REAL16 subroutine Util_TableGetComplex32Array & (length, handle, N_elements, array, key) implicit none -- cgit v1.2.3