diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-16 15:10:36 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-16 15:10:36 (GMT) |
commit | 968552fbc80f4d88a6ea54b0b9a20892f461e167 (patch) | |
tree | 2e65d94f5026bdbf5fba48200f6ce3c5e1c0684d /fortran/src/H5Pff.f90 | |
parent | c23c6b939229efde53e105008d29b8bf441f5d99 (diff) | |
download | hdf5-968552fbc80f4d88a6ea54b0b9a20892f461e167.zip hdf5-968552fbc80f4d88a6ea54b0b9a20892f461e167.tar.gz hdf5-968552fbc80f4d88a6ea54b0b9a20892f461e167.tar.bz2 |
[svn-r15018] Maintenance: Brought changes from th etrunk to 1.8 branch.
Platforms tested: kagiso with g95, Intel and PGI compilers and with -i8 flag
smirom with g95 and -i8 flag, duty with gfortran42
Diffstat (limited to 'fortran/src/H5Pff.f90')
-rw-r--r-- | fortran/src/H5Pff.f90 | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/fortran/src/H5Pff.f90 b/fortran/src/H5Pff.f90 index d24f79d..98fdc81 100644 --- a/fortran/src/H5Pff.f90 +++ b/fortran/src/H5Pff.f90 @@ -7605,7 +7605,7 @@ END SUBROUTINE h5pset_local_heap_size_hint_f !---------------------------------------------------------------------- -! Name: H5Pset_est_link_info_f +! Name: h5pset_est_link_info_f ! ! Purpose: Sets estimated number of links and length of link names in a group. ! @@ -7628,7 +7628,7 @@ ! Comment: !---------------------------------------------------------------------- - SUBROUTINE H5Pset_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr) + SUBROUTINE h5pset_est_link_info_f(gcpl_id, est_num_entries, est_name_len, hdferr) ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -7644,7 +7644,7 @@ ! MS FORTRAN needs explicit interface for C functions called here. ! INTERFACE - INTEGER FUNCTION H5Pset_est_link_info_c(gcpl_id, est_num_entries, est_name_len) + INTEGER FUNCTION h5pset_est_link_info_c(gcpl_id, est_num_entries, est_name_len) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_EST_LINK_INFO_C'::h5pset_est_link_info_c @@ -7652,15 +7652,15 @@ INTEGER(HID_T), INTENT(IN) :: gcpl_id INTEGER, INTENT(IN) :: est_num_entries INTEGER, INTENT(IN) :: est_name_len - END FUNCTION H5Pset_est_link_info_c + END FUNCTION h5pset_est_link_info_c END INTERFACE hdferr = H5Pset_est_link_info_c(gcpl_id, est_num_entries, est_name_len) - END SUBROUTINE H5Pset_est_link_info_f + END SUBROUTINE h5pset_est_link_info_f !---------------------------------------------------------------------- -! Name: H5Pset_link_phase_change_f +! Name: h5pset_link_phase_change_f ! ! Purpose: Sets the parameters for conversion between compact and dense groups. ! @@ -7715,7 +7715,7 @@ END SUBROUTINE h5pset_link_phase_change_f !---------------------------------------------------------------------- -! Name: H5Pset_fapl_direct_f +! Name: h5pset_fapl_direct_f ! ! Purpose: Sets up use of the direct I/O driver. ! @@ -7739,7 +7739,7 @@ ! Comment: !---------------------------------------------------------------------- - SUBROUTINE H5Pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr) + SUBROUTINE h5pset_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr) ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -7756,7 +7756,7 @@ ! MS FORTRAN needs explicit interface for C functions called here. ! INTERFACE - INTEGER FUNCTION H5Pset_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) + INTEGER FUNCTION h5pset_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_DIRECT_C'::h5pset_fapl_direct_c @@ -7765,14 +7765,14 @@ INTEGER(SIZE_T), INTENT(IN) :: alignment INTEGER(SIZE_T), INTENT(IN) :: block_size INTEGER(SIZE_T), INTENT(IN) :: cbuf_size - END FUNCTION H5Pset_fapl_direct_c + END FUNCTION h5pset_fapl_direct_c END INTERFACE hdferr = H5Pset_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) - END SUBROUTINE H5Pset_fapl_direct_f + END SUBROUTINE h5pset_fapl_direct_f !---------------------------------------------------------------------- -! Name: H5Pget_fapl_direct_f +! Name: h5pget_fapl_direct_f ! ! Purpose: Gets up use of the direct I/O driver. ! @@ -7796,7 +7796,7 @@ ! Comment: !---------------------------------------------------------------------- - SUBROUTINE H5Pget_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr) + SUBROUTINE h5pget_fapl_direct_f(fapl_id, alignment, block_size, cbuf_size, hdferr) ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -7813,7 +7813,7 @@ ! MS FORTRAN needs explicit interface for C functions called here. ! INTERFACE - INTEGER FUNCTION H5Pget_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) + INTEGER FUNCTION h5pget_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PGET_FAPL_DIRECT_C'::h5pget_fapl_direct_c @@ -7822,11 +7822,11 @@ INTEGER(SIZE_T), INTENT(OUT) :: alignment INTEGER(SIZE_T), INTENT(OUT) :: block_size INTEGER(SIZE_T), INTENT(OUT) :: cbuf_size - END FUNCTION H5Pget_fapl_direct_c + END FUNCTION h5pget_fapl_direct_c END INTERFACE hdferr = H5Pget_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) - END SUBROUTINE H5Pget_fapl_direct_f + END SUBROUTINE h5pget_fapl_direct_f !---------------------------------------------------------------------- ! Name: H5Pset_attr_phase_change_f @@ -7939,7 +7939,7 @@ END SUBROUTINE h5pset_nbit_f !---------------------------------------------------------------------- -! Name: H5Pset_scaleoffset_f +! Name: h5pset_scaleoffset_f ! ! Purpose: Sets up the use of the Scale-Offset filter. ! @@ -7962,7 +7962,7 @@ ! Comment: !---------------------------------------------------------------------- - SUBROUTINE H5Pset_scaleoffset_f(plist_id, scale_type, scale_factor, hdferr) + SUBROUTINE h5pset_scaleoffset_f(plist_id, scale_type, scale_factor, hdferr) ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -7978,7 +7978,7 @@ ! MS FORTRAN needs explicit interface for C functions called here. ! INTERFACE - INTEGER FUNCTION H5Pset_scaleoffset_c(plist_id, scale_type, scale_factor) + INTEGER FUNCTION h5pset_scaleoffset_c(plist_id, scale_type, scale_factor) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_SCALEOFFSET_C'::h5pset_scaleoffset_c @@ -7986,12 +7986,12 @@ INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER, INTENT(IN) :: scale_type INTEGER, INTENT(IN) :: scale_factor - END FUNCTION H5Pset_scaleoffset_c + END FUNCTION h5pset_scaleoffset_c END INTERFACE hdferr = H5Pset_scaleoffset_c(plist_id, scale_type, scale_factor) - END SUBROUTINE H5Pset_scaleoffset_f + END SUBROUTINE h5pset_scaleoffset_f !---------------------------------------------------------------------- ! Name: h5pset_nlinks_f |