mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r15002] Purpose:

Browse Source 
Made all subroutine names lowercase.
This commit is contained in:
Scot Breitenfeld 2008-05-14 15:07:31 -05:00
parent 037d82e53d
commit c57a9ec023
3 changed files with 58 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
fortran/src/H5Dff.f90
View File

@ -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 !This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL) !DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: H5Dset_extent_f !DEC$attributes dllexport :: h5dset_extent_f
!DEC$endif !DEC$endif
IMPLICIT NONE IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier INTEGER(HID_T), INTENT(IN) :: dataset_id ! Dataset identifier
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size
! Array containing ! Array containing
! dimensions' sizes ! dimensions' sizes
INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER, INTENT(OUT) :: hdferr ! Error code
! INTEGER, EXTERNAL :: H5Dset_extent_c !
! MS FORTRAN needs explicit interface for C functions called here. ! MS FORTRAN needs explicit interface for C functions called here.
! !
INTERFACE INTERFACE
INTEGER FUNCTION H5Dset_extent_c(dataset_id, size) INTEGER FUNCTION h5dset_extent_c(dataset_id, size)
USE H5GLOBAL USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DSET_EXTENT_C'::H5Dset_extent_c !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5DSET_EXTENT_C'::h5dset_extent_c
!DEC$ ENDIF !DEC$ ENDIF
INTEGER(HID_T), INTENT(IN) :: dataset_id INTEGER(HID_T), INTENT(IN) :: dataset_id
INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: size
END FUNCTION H5Dset_extent_c END FUNCTION h5dset_extent_c
END INTERFACE END INTERFACE
hdferr = H5Dset_extent_c(dataset_id, size) hdferr = H5Dset_extent_c(dataset_id, size)
END SUBROUTINE H5Dset_extent_f END SUBROUTINE h5dset_extent_f
!---------------------------------------------------------------------- !----------------------------------------------------------------------

24
fortran/src/H5Lff.f90
View File

@ -795,7 +795,7 @@ CONTAINS
END SUBROUTINE h5lget_info_by_idx_f 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. ! Purpose: Determines whether a class of user-defined links is registered.
! !
@ -817,10 +817,10 @@ CONTAINS
! Modifications: N/A ! 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 !This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL) !DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: H5Lis_registered_f !DEC$attributes dllexport :: h5lis_registered_f
!DEC$endif !DEC$endif
IMPLICIT NONE IMPLICIT NONE
INTEGER, INTENT(IN) :: link_cls_id ! User-defined link class identifier 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. ! MS FORTRAN needs explicit interface for C functions called here.
! !
INTERFACE INTERFACE
INTEGER FUNCTION H5Lis_registered_c(link_cls_id) INTEGER FUNCTION h5lis_registered_c(link_cls_id)
USE H5GLOBAL USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5LIS_REGISTERED_C'::h5lis_registered_c !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5LIS_REGISTERED_C'::h5lis_registered_c
!DEC$ ENDIF !DEC$ ENDIF
INTEGER, INTENT(IN) :: link_cls_id ! User-defined link class identifier INTEGER, INTENT(IN) :: link_cls_id ! User-defined link class identifier
END FUNCTION H5Lis_registered_c END FUNCTION h5lis_registered_c
END INTERFACE END INTERFACE
hdferr = H5Lis_registered_c(link_cls_id) hdferr = h5lis_registered_c(link_cls_id)
IF(hdferr.GT.0)THEN IF(hdferr.GT.0)THEN
registered = .TRUE. registered = .TRUE.
@ -849,10 +849,10 @@ CONTAINS
registered = .FALSE. registered = .FALSE.
ENDIF 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. ! 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) 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 !This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL) !DEC$if defined(BUILD_HDF5_DLL)
!DEC$attributes dllexport :: H5Lmove_f !DEC$attributes dllexport :: h5lmove_f
!DEC$endif !DEC$endif
IMPLICIT NONE IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: src_loc_id ! Original file or group identifier. 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. ! MS FORTRAN needs explicit interface for C functions called here.
! !
INTERFACE 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) dest_name, dest_namelen, lcpl_id_default, lapl_id_default)
USE H5GLOBAL USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ IF DEFINED(HDF5F90_WINDOWS)
@ -920,7 +920,7 @@ CONTAINS
INTEGER(HID_T) :: lcpl_id_default INTEGER(HID_T) :: lcpl_id_default
INTEGER(HID_T) :: lapl_id_default INTEGER(HID_T) :: lapl_id_default
END FUNCTION H5Lmove_c END FUNCTION h5lmove_c
END INTERFACE END INTERFACE
lcpl_id_default = H5P_DEFAULT_F lcpl_id_default = H5P_DEFAULT_F
@ -934,7 +934,7 @@ CONTAINS
hdferr = H5Lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, & hdferr = H5Lmove_c(src_loc_id, src_name, src_namelen, dest_loc_id, &
dest_name, dest_namelen, lcpl_id_default, lapl_id_default) dest_name, dest_namelen, lcpl_id_default, lapl_id_default)
END SUBROUTINE H5Lmove_f END SUBROUTINE h5lmove_f
!---------------------------------------------------------------------- !----------------------------------------------------------------------
! Name: h5lget_name_by_idx_f ! Name: h5lget_name_by_idx_f

42
fortran/src/H5Pff.f90
View File

@ -7605,7 +7605,7 @@
END SUBROUTINE h5pset_local_heap_size_hint_f 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. ! Purpose: Sets estimated number of links and length of link names in a group.
! !
@ -7628,7 +7628,7 @@
! Comment: ! 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 !This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL) !DEC$if defined(BUILD_HDF5_DLL)
@ -7644,7 +7644,7 @@
! MS FORTRAN needs explicit interface for C functions called here. ! MS FORTRAN needs explicit interface for C functions called here.
! !
INTERFACE 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 USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_EST_LINK_INFO_C'::h5pset_est_link_info_c !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(HID_T), INTENT(IN) :: gcpl_id
INTEGER, INTENT(IN) :: est_num_entries INTEGER, INTENT(IN) :: est_num_entries
INTEGER, INTENT(IN) :: est_name_len INTEGER, INTENT(IN) :: est_name_len
END FUNCTION H5Pset_est_link_info_c END FUNCTION h5pset_est_link_info_c
END INTERFACE END INTERFACE
hdferr = H5Pset_est_link_info_c(gcpl_id, est_num_entries, est_name_len) 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. ! Purpose: Sets the parameters for conversion between compact and dense groups.
! !
@ -7715,7 +7715,7 @@
END SUBROUTINE h5pset_link_phase_change_f 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. ! Purpose: Sets up use of the direct I/O driver.
! !
@ -7739,7 +7739,7 @@
! Comment: ! 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 !This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL) !DEC$if defined(BUILD_HDF5_DLL)
@ -7756,7 +7756,7 @@
! MS FORTRAN needs explicit interface for C functions called here. ! MS FORTRAN needs explicit interface for C functions called here.
! !
INTERFACE 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 USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_FAPL_DIRECT_C'::h5pset_fapl_direct_c !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) :: alignment
INTEGER(SIZE_T), INTENT(IN) :: block_size INTEGER(SIZE_T), INTENT(IN) :: block_size
INTEGER(SIZE_T), INTENT(IN) :: cbuf_size INTEGER(SIZE_T), INTENT(IN) :: cbuf_size
END FUNCTION H5Pset_fapl_direct_c END FUNCTION h5pset_fapl_direct_c
END INTERFACE END INTERFACE
hdferr = H5Pset_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) 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. ! Purpose: Gets up use of the direct I/O driver.
! !
@ -7796,7 +7796,7 @@
! Comment: ! 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 !This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL) !DEC$if defined(BUILD_HDF5_DLL)
@ -7813,7 +7813,7 @@
! MS FORTRAN needs explicit interface for C functions called here. ! MS FORTRAN needs explicit interface for C functions called here.
! !
INTERFACE 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 USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PGET_FAPL_DIRECT_C'::h5pget_fapl_direct_c !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) :: alignment
INTEGER(SIZE_T), INTENT(OUT) :: block_size INTEGER(SIZE_T), INTENT(OUT) :: block_size
INTEGER(SIZE_T), INTENT(OUT) :: cbuf_size INTEGER(SIZE_T), INTENT(OUT) :: cbuf_size
END FUNCTION H5Pget_fapl_direct_c END FUNCTION h5pget_fapl_direct_c
END INTERFACE END INTERFACE
hdferr = H5Pget_fapl_direct_c(fapl_id, alignment, block_size, cbuf_size) 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 ! Name: H5Pset_attr_phase_change_f
@ -7939,7 +7939,7 @@
END SUBROUTINE h5pset_nbit_f END SUBROUTINE h5pset_nbit_f
!---------------------------------------------------------------------- !----------------------------------------------------------------------
! Name: H5Pset_scaleoffset_f ! Name: h5pset_scaleoffset_f
! !
! Purpose: Sets up the use of the Scale-Offset filter. ! Purpose: Sets up the use of the Scale-Offset filter.
! !
@ -7962,7 +7962,7 @@
! Comment: ! 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 !This definition is needed for Windows DLLs
!DEC$if defined(BUILD_HDF5_DLL) !DEC$if defined(BUILD_HDF5_DLL)
@ -7978,7 +7978,7 @@
! MS FORTRAN needs explicit interface for C functions called here. ! MS FORTRAN needs explicit interface for C functions called here.
! !
INTERFACE 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 USE H5GLOBAL
!DEC$ IF DEFINED(HDF5F90_WINDOWS) !DEC$ IF DEFINED(HDF5F90_WINDOWS)
!DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_SCALEOFFSET_C'::h5pset_scaleoffset_c !DEC$ ATTRIBUTES C,reference,decorate,alias:'H5PSET_SCALEOFFSET_C'::h5pset_scaleoffset_c
@ -7986,12 +7986,12 @@
INTEGER(HID_T), INTENT(IN) :: plist_id INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER, INTENT(IN) :: scale_type INTEGER, INTENT(IN) :: scale_type
INTEGER, INTENT(IN) :: scale_factor INTEGER, INTENT(IN) :: scale_factor
END FUNCTION H5Pset_scaleoffset_c END FUNCTION h5pset_scaleoffset_c
END INTERFACE END INTERFACE
hdferr = H5Pset_scaleoffset_c(plist_id, scale_type, scale_factor) hdferr = H5Pset_scaleoffset_c(plist_id, scale_type, scale_factor)
END SUBROUTINE H5Pset_scaleoffset_f END SUBROUTINE h5pset_scaleoffset_f
!---------------------------------------------------------------------- !----------------------------------------------------------------------
! Name: h5pset_nlinks_f ! Name: h5pset_nlinks_f