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

1 files 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