From c57a9ec023e85e9ee4a712fbb6ffcbdeb801019d Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Wed, 14 May 2008 15:07:31 -0500 Subject: [svn-r15002] Purpose: Made all subroutine names lowercase. --- fortran/src/H5Dff.f90 | 50 +++++++++++++++++++++++++------------------------- fortran/src/H5Lff.f90 | 24 ++++++++++++------------ fortran/src/H5Pff.f90 | 42 +++++++++++++++++++++--------------------- 3 files changed, 58 insertions(+), 58 deletions(-) diff --git a/fortran/src/H5Dff.f90 b/fortran/src/H5Dff.f90 index 4dfad01..757e1e2 100644 --- a/fortran/src/H5Dff.f90 +++ b/fortran/src/H5Dff.f90 @@ -4771,34 +4771,34 @@ CONTAINS !---------------------------------------------------------------------- - SUBROUTINE H5Dset_extent_f(dataset_id, size, hdferr) + SUBROUTINE h5dset_extent_f(dataset_id, size, hdferr) !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) -!DEC$attributes dllexport :: H5Dset_extent_f +!DEC$attributes dllexport :: h5dset_extent_f !DEC$endif - IMPLICIT NONE - INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier - INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size - ! Array containing - ! dimensions' sizes - INTEGER, INTENT(OUT) :: hdferr ! Error code - -! INTEGER, EXTERNAL :: H5Dset_extent_c -! MS FORTRAN needs explicit interface for C functions called here. -! - INTERFACE - INTEGER FUNCTION H5Dset_extent_c(dataset_id, size) - USE H5GLOBAL - !DEC$ IF DEFINED(HDF5F90_WINDOWS) - !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DSET_EXTENT_C'::H5Dset_extent_c - !DEC$ ENDIF - INTEGER(HID_T), INTENT(IN) :: dataset_id - INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size - END FUNCTION H5Dset_extent_c - END INTERFACE - - hdferr = H5Dset_extent_c(dataset_id, size) - END SUBROUTINE H5Dset_extent_f + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier + INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size + ! Array containing + ! dimensions' sizes + INTEGER, INTENT(OUT) :: hdferr ! Error code + + ! + ! MS FORTRAN needs explicit interface for C functions called here. + ! + INTERFACE + INTEGER FUNCTION h5dset_extent_c(dataset_id, size) + USE H5GLOBAL + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DSET_EXTENT_C'::h5dset_extent_c + !DEC$ ENDIF + INTEGER(HID_T), INTENT(IN) :: dataset_id + INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size + END FUNCTION h5dset_extent_c + END INTERFACE + + hdferr = H5Dset_extent_c(dataset_id, size) + END SUBROUTINE h5dset_extent_f !---------------------------------------------------------------------- diff --git a/fortran/src/H5Lff.f90 b/fortran/src/H5Lff.f90 index a343c31..10c8e35 100644 --- a/fortran/src/H5Lff.f90 +++ b/fortran/src/H5Lff.f90 @@ -795,7 +795,7 @@ CONTAINS END SUBROUTINE h5lget_info_by_idx_f !---------------------------------------------------------------------- -! Name: H5Lis_registered_f +! Name: h5lis_registered_f ! ! Purpose: Determines whether a class of user-defined links is registered. ! @@ -817,10 +817,10 @@ CONTAINS ! Modifications: N/A ! !---------------------------------------------------------------------- - SUBROUTINE H5Lis_registered_f(link_cls_id, registered, hdferr) + SUBROUTINE h5lis_registered_f(link_cls_id, registered, hdferr) !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) -!DEC$attributes dllexport :: H5Lis_registered_f +!DEC$attributes dllexport :: h5lis_registered_f !DEC$endif IMPLICIT NONE INTEGER, INTENT(IN) :: link_cls_id ! User-defined link class identifier @@ -832,16 +832,16 @@ CONTAINS ! MS FORTRAN needs explicit interface for C functions called here. ! INTERFACE - INTEGER FUNCTION H5Lis_registered_c(link_cls_id) + INTEGER FUNCTION h5lis_registered_c(link_cls_id) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5LIS_REGISTERED_C'::h5lis_registered_c !DEC$ ENDIF INTEGER, INTENT(IN) :: link_cls_id ! User-defined link class identifier - END FUNCTION H5Lis_registered_c + END FUNCTION h5lis_registered_c END INTERFACE - hdferr = H5Lis_registered_c(link_cls_id) + hdferr = h5lis_registered_c(link_cls_id) IF(hdferr.GT.0)THEN registered = .TRUE. @@ -849,10 +849,10 @@ CONTAINS registered = .FALSE. ENDIF - END SUBROUTINE H5Lis_registered_f + END SUBROUTINE h5lis_registered_f !---------------------------------------------------------------------- -! Name: H5Lmove_f +! Name: h5lmove_f ! ! Purpose: Renames a link within an HDF5 file. ! @@ -879,7 +879,7 @@ CONTAINS SUBROUTINE h5lmove_f(src_loc_id, src_name, dest_loc_id, dest_name, hdferr, lcpl_id, lapl_id) !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) -!DEC$attributes dllexport :: H5Lmove_f +!DEC$attributes dllexport :: h5lmove_f !DEC$endif IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: src_loc_id ! Original file or group identifier. @@ -903,7 +903,7 @@ CONTAINS ! MS FORTRAN needs explicit interface for C functions called here. ! INTERFACE - INTEGER FUNCTION H5Lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, & + INTEGER FUNCTION h5lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, & dest_name, dest_namelen, lcpl_id_default, lapl_id_default) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) @@ -920,7 +920,7 @@ CONTAINS INTEGER(HID_T) :: lcpl_id_default INTEGER(HID_T) :: lapl_id_default - END FUNCTION H5Lmove_c + END FUNCTION h5lmove_c END INTERFACE lcpl_id_default = H5P_DEFAULT_F @@ -934,7 +934,7 @@ CONTAINS hdferr = H5Lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, & dest_name, dest_namelen, lcpl_id_default, lapl_id_default) - END SUBROUTINE H5Lmove_f + END SUBROUTINE h5lmove_f !---------------------------------------------------------------------- ! Name: h5lget_name_by_idx_f 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 -- cgit v0.12