mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
[svn-r15002] Purpose:
Made all subroutine names lowercase.
This commit is contained in:
Scot Breitenfeld
parent
037d82e53d
commit
c57a9ec023
@ -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
|
||||
|
||||
|
||||
!----------------------------------------------------------------------
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user