mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-30 15:32:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r26918] fixed H5_FORTRAN_HAVE_C_LONG_DOUBLE

Browse Source
This commit is contained in:
Scot Breitenfeld 2015-04-24 13:44:50 -05:00
parent fbf21b18ee
commit 0f453502b9
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
hl/fortran/src/H5LTff.F90
View File

@ -58,7 +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
#ifdef H5_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
@ -91,7 +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
#ifdef H5_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
@ -127,7 +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
#ifdef H5_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,7 +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
#ifdef H5_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
@ -189,7 +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
#ifdef H5_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
@ -215,7 +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
#ifdef H5_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
@ -848,7 +848,7 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_f_c_double7
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
!-------------------------------------------------------------------------
! Function(s): h5ltmake_dataset_f_c_long_double(1-7)
!
@ -1606,7 +1606,7 @@ CONTAINS
END SUBROUTINE h5ltread_dataset_f_c_double7
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
!-------------------------------------------------------------------------
! Function(s): h5ltread_dataset_f_c_long_double(1-7)
!
@ -2309,7 +2309,7 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_c_double_f_7
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
!-------------------------------------------------------------------------
! Function(s): h5ltmake_dataset_c_long_double_f_(1-7)
!
@ -2974,7 +2974,7 @@ CONTAINS
END SUBROUTINE h5ltread_dataset_c_double_f_7
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
!-------------------------------------------------------------------------
! Function9s): h5ltread_dataset_c_long_double_f_(1-7)
!

20
hl/fortran/src/H5TBff.F90
View File

@ -42,7 +42,7 @@ MODULE h5tb
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
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
MODULE PROCEDURE h5tbwrite_field_name_f_c_long_double
#endif
MODULE PROCEDURE h5tbwrite_field_name_f_string
@ -52,7 +52,7 @@ 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
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
MODULE PROCEDURE h5tbread_field_name_f_c_long_double
#endif
MODULE PROCEDURE h5tbread_field_name_f_string
@ -62,7 +62,7 @@ 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
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
MODULE PROCEDURE h5tbwrite_field_index_f_c_long_double
#endif
MODULE PROCEDURE h5tbwrite_field_index_f_string
@ -72,7 +72,7 @@ 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
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
MODULE PROCEDURE h5tbread_field_index_f_c_long_double
#endif
MODULE PROCEDURE h5tbread_field_index_f_string
@ -82,7 +82,7 @@ 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
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
MODULE PROCEDURE h5tbinsert_field_f_c_long_double
#endif
MODULE PROCEDURE h5tbinsert_field_f_string
@ -413,7 +413,7 @@ CONTAINS
END SUBROUTINE h5tbwrite_field_name_f_c_double
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
SUBROUTINE h5tbwrite_field_name_f_c_long_double(loc_id,&
dset_name,&
field_name,&
@ -594,7 +594,7 @@ CONTAINS
END SUBROUTINE h5tbread_field_name_f_c_double
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
SUBROUTINE h5tbread_field_name_f_c_long_double(loc_id,&
dset_name,&
field_name,&
@ -766,7 +766,7 @@ CONTAINS
END SUBROUTINE h5tbwrite_field_index_f_c_double
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
SUBROUTINE h5tbwrite_field_index_f_c_long_double(loc_id,&
dset_name,&
field_index,&
@ -931,7 +931,7 @@ CONTAINS
END SUBROUTINE h5tbread_field_index_f_c_double
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
SUBROUTINE h5tbread_field_index_f_c_long_double(loc_id,&
dset_name,&
field_index,&
@ -1093,7 +1093,7 @@ CONTAINS
END SUBROUTINE h5tbinsert_field_f_c_double
#ifdef FORTRAN_HAVE_C_LONG_DOUBLE
#ifdef H5_FORTRAN_HAVE_C_LONG_DOUBLE
SUBROUTINE h5tbinsert_field_f_c_long_double(loc_id,&
dset_name,&
field_name,&