summaryrefslogtreecommitdiffstats
path: root/hl/fortran/src
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-23 22:16:30 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-23 22:16:30 (GMT)
commitfbf21b18ee7d83d2ff553ef3f920fba33708ded6 (patch)
tree94d717921218447e6e736b411f4bd9da97c8252a /hl/fortran/src
parent47f189a194fc560af2afc937c1601e4bec733ae8 (diff)
downloadhdf5-fbf21b18ee7d83d2ff553ef3f920fba33708ded6.zip
hdf5-fbf21b18ee7d83d2ff553ef3f920fba33708ded6.tar.gz
hdf5-fbf21b18ee7d83d2ff553ef3f920fba33708ded6.tar.bz2
[svn-r26917] added conditional for C_LONG_DOUBLE
Diffstat (limited to 'hl/fortran/src')
-rw-r--r--hl/fortran/src/H5LTff.F9023
-rw-r--r--hl/fortran/src/H5TBff.F9023
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,&