[svn-r26917] added conditional for C_LONG_DOUBLE

2 files changed, 43 insertions, 3 deletions

diff --git a/hl/fortran/src/H5LTff.F90 b/hl/fortran/src/H5LTff.F90
index 0d05a36..8334a76 100644
--- a/hl/fortran/src/H5LTff.F90
+++ b/hl/fortran/src/H5LTff.F90
@@ -30,6 +30,7 @@
 !  This is needed for Windows based operating systems.
 !
 
+#include "H5config_f.inc"
 MODULE h5lt
   USE, INTRINSIC :: ISO_C_BINDING
   USE h5fortran_types
@@ -57,6 +58,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltmake_dataset_f_c_double5
      MODULE PROCEDURE h5ltmake_dataset_f_c_double6
      MODULE PROCEDURE h5ltmake_dataset_f_c_double7
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5ltmake_dataset_f_c_long_double1
      MODULE PROCEDURE h5ltmake_dataset_f_c_long_double2
      MODULE PROCEDURE h5ltmake_dataset_f_c_long_double3
@@ -64,6 +66,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltmake_dataset_f_c_long_double5
      MODULE PROCEDURE h5ltmake_dataset_f_c_long_double6
      MODULE PROCEDURE h5ltmake_dataset_f_c_long_double7
+#endif
   END INTERFACE
 
   INTERFACE h5ltread_dataset_f
@@ -88,6 +91,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltread_dataset_f_c_double5
      MODULE PROCEDURE h5ltread_dataset_f_c_double6
      MODULE PROCEDURE h5ltread_dataset_f_c_double7
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5ltread_dataset_f_c_long_double1
      MODULE PROCEDURE h5ltread_dataset_f_c_long_double2
      MODULE PROCEDURE h5ltread_dataset_f_c_long_double3
@@ -95,6 +99,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltread_dataset_f_c_long_double5
      MODULE PROCEDURE h5ltread_dataset_f_c_long_double6
      MODULE PROCEDURE h5ltread_dataset_f_c_long_double7
+#endif
   END INTERFACE
 
   INTERFACE h5ltmake_dataset_int_f
@@ -122,6 +127,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltmake_dataset_c_double_f_5
      MODULE PROCEDURE h5ltmake_dataset_c_double_f_6
      MODULE PROCEDURE h5ltmake_dataset_c_double_f_7
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_1
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_2
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_3
@@ -129,6 +135,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_5
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_6
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_7
+#endif
   END INTERFACE
 
   INTERFACE h5ltmake_dataset_double_f
@@ -146,6 +153,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltmake_dataset_c_double_f_5
      MODULE PROCEDURE h5ltmake_dataset_c_double_f_6
      MODULE PROCEDURE h5ltmake_dataset_c_double_f_7
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_1
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_2
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_3
@@ -153,6 +161,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_5
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_6
      MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_7
+#endif
   END INTERFACE
 
   INTERFACE h5ltread_dataset_int_f
@@ -180,6 +189,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltread_dataset_c_double_f_5
      MODULE PROCEDURE h5ltread_dataset_c_double_f_6
      MODULE PROCEDURE h5ltread_dataset_c_double_f_7
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_1
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_2
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_3
@@ -187,6 +197,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_5
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_6
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_7
+#endif
   END INTERFACE
 
   INTERFACE h5ltread_dataset_double_f
@@ -204,6 +215,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltread_dataset_c_double_f_5
      MODULE PROCEDURE h5ltread_dataset_c_double_f_6
      MODULE PROCEDURE h5ltread_dataset_c_double_f_7
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_1
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_2
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_3
@@ -211,6 +223,7 @@ MODULE h5lt
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_5
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_6
      MODULE PROCEDURE h5ltread_dataset_c_long_double_f_7
+#endif
   END INTERFACE
 
   INTERFACE
@@ -835,6 +848,7 @@ CONTAINS
 
   END SUBROUTINE h5ltmake_dataset_f_c_double7
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   !-------------------------------------------------------------------------
   ! Function(s): h5ltmake_dataset_f_c_long_double(1-7)
   !
@@ -1012,6 +1026,8 @@ CONTAINS
 
   END SUBROUTINE h5ltmake_dataset_f_c_long_double7
 
+#endif
+
   !-------------------------------------------------------------------------
   ! Function(s): h5ltread_dataset_f_int(1-7)
   !
@@ -1590,6 +1606,7 @@ CONTAINS
 
   END SUBROUTINE h5ltread_dataset_f_c_double7
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   !-------------------------------------------------------------------------
   ! Function(s): h5ltread_dataset_f_c_long_double(1-7)
   !
@@ -1764,6 +1781,7 @@ CONTAINS
     errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr,dims)
 
   END SUBROUTINE h5ltread_dataset_f_c_long_double7
+#endif
 
   !-------------------------------------------------------------------------
   ! Function: h5ltmake_dataset_int_f_1
@@ -2291,6 +2309,7 @@ CONTAINS
 
   END SUBROUTINE h5ltmake_dataset_c_double_f_7
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   !-------------------------------------------------------------------------
   ! Function(s): h5ltmake_dataset_c_long_double_f_(1-7)
   !
@@ -2466,6 +2485,7 @@ CONTAINS
     errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr)
 
   END SUBROUTINE h5ltmake_dataset_c_long_double_f_7
+#endif
 
   !-------------------------------------------------------------------------
   ! Function(s): h5ltread_dataset_int_f_(1-7)
@@ -2954,6 +2974,7 @@ CONTAINS
 
   END SUBROUTINE h5ltread_dataset_c_double_f_7
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   !-------------------------------------------------------------------------
   ! Function9s): h5ltread_dataset_c_long_double_f_(1-7)
   !
@@ -3115,7 +3136,7 @@ CONTAINS
     errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr,dims)
 
   END SUBROUTINE h5ltread_dataset_c_long_double_f_7
-
+#endif
 
   !-------------------------------------------------------------------------
   ! Function: h5ltmake_dataset_string_f
diff --git a/hl/fortran/src/H5TBff.F90 b/hl/fortran/src/H5TBff.F90
index 26f80dc..34894a5 100644
--- a/hl/fortran/src/H5TBff.F90
+++ b/hl/fortran/src/H5TBff.F90
@@ -30,6 +30,7 @@
 !  Windows dll file 'hdf5_hl_fortrandll.def.in' in the hl/fortran/src directory.
 !  This is needed for Windows based operating systems.
 !
+#include "H5config_f.inc"
 
 MODULE h5tb
   
@@ -37,12 +38,13 @@ MODULE h5tb
   USE h5fortran_types
   USE hdf5
 
-
   INTERFACE h5tbwrite_field_name_f
      MODULE PROCEDURE h5tbwrite_field_name_f_int
      MODULE PROCEDURE h5tbwrite_field_name_f_c_float
      MODULE PROCEDURE h5tbwrite_field_name_f_c_double
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5tbwrite_field_name_f_c_long_double
+#endif
      MODULE PROCEDURE h5tbwrite_field_name_f_string
   END INTERFACE
   
@@ -50,7 +52,9 @@ MODULE h5tb
      MODULE PROCEDURE h5tbread_field_name_f_int
      MODULE PROCEDURE h5tbread_field_name_f_c_float
      MODULE PROCEDURE h5tbread_field_name_f_c_double
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5tbread_field_name_f_c_long_double
+#endif
      MODULE PROCEDURE h5tbread_field_name_f_string
   END INTERFACE
   
@@ -58,7 +62,9 @@ MODULE h5tb
      MODULE PROCEDURE h5tbwrite_field_index_f_int
      MODULE PROCEDURE h5tbwrite_field_index_f_c_float
      MODULE PROCEDURE h5tbwrite_field_index_f_c_double
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5tbwrite_field_index_f_c_long_double
+#endif
      MODULE PROCEDURE h5tbwrite_field_index_f_string
   END INTERFACE
   
@@ -66,7 +72,9 @@ MODULE h5tb
      MODULE PROCEDURE h5tbread_field_index_f_int
      MODULE PROCEDURE h5tbread_field_index_f_c_float
      MODULE PROCEDURE h5tbread_field_index_f_c_double
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5tbread_field_index_f_c_long_double
+#endif
      MODULE PROCEDURE h5tbread_field_index_f_string
   END INTERFACE
   
@@ -74,7 +82,9 @@ MODULE h5tb
      MODULE PROCEDURE h5tbinsert_field_f_int
      MODULE PROCEDURE h5tbinsert_field_f_c_float
      MODULE PROCEDURE h5tbinsert_field_f_c_double
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
      MODULE PROCEDURE h5tbinsert_field_f_c_long_double
+#endif
      MODULE PROCEDURE h5tbinsert_field_f_string
   END INTERFACE
 
@@ -98,7 +108,6 @@ MODULE h5tb
      END FUNCTION h5tbwrite_field_name_c
   END INTERFACE
 
-    
   INTERFACE
      INTEGER FUNCTION h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name, &
           start,nrecords,type_size,buf) &
@@ -404,6 +413,7 @@ CONTAINS
     
   END SUBROUTINE h5tbwrite_field_name_f_c_double
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   SUBROUTINE h5tbwrite_field_name_f_c_long_double(loc_id,&
        dset_name,&
        field_name,&
@@ -436,6 +446,7 @@ CONTAINS
          start,nrecords,type_size,f_ptr)
     
   END SUBROUTINE h5tbwrite_field_name_f_c_long_double
+#endif
 
   SUBROUTINE h5tbwrite_field_name_f_string(loc_id,&
        dset_name,&
@@ -583,6 +594,7 @@ CONTAINS
 
   END SUBROUTINE h5tbread_field_name_f_c_double
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   SUBROUTINE h5tbread_field_name_f_c_long_double(loc_id,&
        dset_name,&
        field_name,&
@@ -614,6 +626,7 @@ CONTAINS
          start,nrecords,type_size,f_ptr)
 
   END SUBROUTINE h5tbread_field_name_f_c_long_double
+#endif
 
   SUBROUTINE h5tbread_field_name_f_string(loc_id,&
        dset_name,&
@@ -753,6 +766,7 @@ CONTAINS
     
   END SUBROUTINE h5tbwrite_field_index_f_c_double
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   SUBROUTINE h5tbwrite_field_index_f_c_long_double(loc_id,&
        dset_name,&
        field_index,&
@@ -782,6 +796,7 @@ CONTAINS
          start,nrecords,type_size,f_ptr)
     
   END SUBROUTINE h5tbwrite_field_index_f_c_long_double
+#endif
 
   SUBROUTINE h5tbwrite_field_index_f_string(loc_id,&
        dset_name,&
@@ -916,6 +931,7 @@ CONTAINS
 
   END SUBROUTINE h5tbread_field_index_f_c_double
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   SUBROUTINE h5tbread_field_index_f_c_long_double(loc_id,&
        dset_name,&
        field_index,&
@@ -944,6 +960,7 @@ CONTAINS
          start,nrecords,type_size,f_ptr)
 
   END SUBROUTINE h5tbread_field_index_f_c_long_double
+#endif
 
   SUBROUTINE h5tbread_field_index_f_string(loc_id,&
        dset_name,&
@@ -1076,6 +1093,7 @@ CONTAINS
     
   END SUBROUTINE h5tbinsert_field_f_c_double
 
+#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
   SUBROUTINE h5tbinsert_field_f_c_long_double(loc_id,&
        dset_name,&
        field_name,&
@@ -1104,6 +1122,7 @@ CONTAINS
          field_type,field_index,f_ptr)
     
   END SUBROUTINE h5tbinsert_field_f_c_long_double
+#endif
 
   SUBROUTINE h5tbinsert_field_f_string(loc_id,&
        dset_name,&