From e20e38cda934fa41091e0c1c59aa179c2bc83c5e Mon Sep 17 00:00:00 2001 From: tradke Date: Sun, 20 Jun 2004 13:00:42 +0000 Subject: Use '#if CCTK_HAVE_REAL*' rather than '#ifdef CCTK_REAL*'. Ditto for CCTK_INT* datatypes. git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@13 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 0ddf039..17768b8 100644 --- a/src/util_Table.F90 +++ b/src/util_Table.F90 @@ -233,7 +233,7 @@ module util_Table character(*) key end subroutine Util_TableSetReal -#ifdef CCTK_REAL4 +#if HAVE_CCTK_REAL4 subroutine Util_TableSetReal4 (info, handle, value, key) implicit none integer info @@ -243,7 +243,7 @@ module util_Table end subroutine Util_TableSetReal4 #endif -#ifdef CCTK_REAL8 +#if HAVE_CCTK_REAL8 subroutine Util_TableSetReal8 (info, handle, value, key) implicit none integer info @@ -253,7 +253,7 @@ module util_Table end subroutine Util_TableSetReal8 #endif -#ifdef CCTK_REAL16 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL4 +#if HAVE_CCTK_REAL4 subroutine Util_TableSetComplex8 (info, handle, value, key) implicit none integer info @@ -283,7 +283,7 @@ module util_Table end subroutine Util_TableSetComplex8 #endif -#ifdef CCTK_REAL8 +#if HAVE_CCTK_REAL8 subroutine Util_TableSetComplex16 (info, handle, value, key) implicit none integer info @@ -293,7 +293,7 @@ module util_Table end subroutine Util_TableSetComplex16 #endif -#ifdef CCTK_REAL16 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL4 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL8 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL16 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL4 +#if HAVE_CCTK_REAL4 subroutine Util_TableSetComplex8Array & (info, handle, N_elements, array, key) implicit none @@ -460,7 +460,7 @@ module util_Table end subroutine Util_TableSetComplex8Array #endif -#ifdef CCTK_REAL8 +#if HAVE_CCTK_REAL8 subroutine Util_TableSetComplex16Array & (info, handle, N_elements, array, key) implicit none @@ -472,7 +472,7 @@ module util_Table end subroutine Util_TableSetComplex16Array #endif -#ifdef CCTK_REAL16 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL4 +#if HAVE_CCTK_REAL4 subroutine Util_TableGetReal4 (length, handle, value, key) implicit none integer length @@ -584,7 +584,7 @@ module util_Table end subroutine Util_TableGetReal4 #endif -#ifdef CCTK_REAL8 +#if HAVE_CCTK_REAL8 subroutine Util_TableGetReal8 (length, handle, value, key) implicit none integer length @@ -594,7 +594,7 @@ module util_Table end subroutine Util_TableGetReal8 #endif -#ifdef CCTK_REAL16 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL4 +#if HAVE_CCTK_REAL4 subroutine Util_TableGetComplex8 (length, handle, value, key) implicit none integer length @@ -624,7 +624,7 @@ module util_Table end subroutine Util_TableGetComplex8 #endif -#ifdef CCTK_REAL8 +#if HAVE_CCTK_REAL8 subroutine Util_TableGetComplex16 (length, handle, value, key) implicit none integer length @@ -634,7 +634,7 @@ module util_Table end subroutine Util_TableGetComplex16 #endif -#ifdef CCTK_REAL16 +#if HAVE_CCTK_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 CCTK_REAL4 +#if HAVE_CCTK_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 CCTK_REAL8 +#if HAVE_CCTK_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 CCTK_REAL16 +#if HAVE_CCTK_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 -#ifdef CCTK_REAL4 +#if HAVE_CCTK_REAL4 subroutine Util_TableGetComplex8Array & (length, handle, N_elements, array, key) implicit none @@ -804,7 +804,7 @@ module util_Table end subroutine Util_TableGetComplex8Array #endif -#ifdef CCTK_REAL8 +#if HAVE_CCTK_REAL8 subroutine Util_TableGetComplex16Array & (length, handle, N_elements, array, key) implicit none @@ -816,7 +816,7 @@ module util_Table end subroutine Util_TableGetComplex16Array #endif -#ifdef CCTK_REAL16 +#if HAVE_CCTK_REAL16 subroutine Util_TableGetComplex32Array & (length, handle, N_elements, array, key) implicit none -- cgit v1.2.3