summaryrefslogtreecommitdiffstats
path: root/hl/fortran/src/H5LTff.F90
diff options
context:
space:
mode:
Diffstat (limited to 'hl/fortran/src/H5LTff.F90')
-rw-r--r--hl/fortran/src/H5LTff.F9021
1 files changed, 10 insertions, 11 deletions
diff --git a/hl/fortran/src/H5LTff.F90 b/hl/fortran/src/H5LTff.F90
index 3216b0a..8dc20f2 100644
--- a/hl/fortran/src/H5LTff.F90
+++ b/hl/fortran/src/H5LTff.F90
@@ -59,7 +59,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 H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
MODULE PROCEDURE h5ltmake_dataset_f_c_long_double1
MODULE PROCEDURE h5ltmake_dataset_f_c_long_double2
MODULE PROCEDURE h5ltmake_dataset_f_c_long_double3
@@ -93,7 +93,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 H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
MODULE PROCEDURE h5ltread_dataset_f_c_long_double1
MODULE PROCEDURE h5ltread_dataset_f_c_long_double2
MODULE PROCEDURE h5ltread_dataset_f_c_long_double3
@@ -130,7 +130,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 H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
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
@@ -156,7 +156,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 H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
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
@@ -192,7 +192,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 H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
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
@@ -218,7 +218,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 H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
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
@@ -892,7 +892,7 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_f_c_double7
-#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
!-------------------------------------------------------------------------
! Function(s): h5ltmake_dataset_f_c_long_double(1-7)
!
@@ -1684,8 +1684,7 @@ CONTAINS
errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr)
END SUBROUTINE h5ltread_dataset_f_c_double7
-
-#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
!-------------------------------------------------------------------------
! Function(s): h5ltread_dataset_f_c_long_double(1-7)
!
@@ -2388,7 +2387,7 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_c_double_f_7
-#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
!-------------------------------------------------------------------------
! Function(s): h5ltmake_dataset_c_long_double_f_(1-7)
!
@@ -3053,7 +3052,7 @@ CONTAINS
END SUBROUTINE h5ltread_dataset_c_double_f_7
-#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
+#if FORTRAN_C_LONG_DOUBLE_IS_UNIQUE!=0
!-------------------------------------------------------------------------
! Function9s): h5ltread_dataset_c_long_double_f_(1-7)
!