diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2023-06-05 16:59:51 (GMT) |
---|---|---|
committer | GitHub <noreply@github.com> | 2023-06-05 16:59:51 (GMT) |
commit | 66cee727684ee3bca63d3ccd57bc4ae7a184bb31 (patch) | |
tree | 5e2887b82cdc69c79322541199a42a4a3b816855 /fortran/src/H5Pff.F90 | |
parent | 71684199d5aafa9faaa38d9159c500be715c3f54 (diff) | |
download | hdf5-66cee727684ee3bca63d3ccd57bc4ae7a184bb31.zip hdf5-66cee727684ee3bca63d3ccd57bc4ae7a184bb31.tar.gz hdf5-66cee727684ee3bca63d3ccd57bc4ae7a184bb31.tar.bz2 |
Print out the VOL connector being used in the ASYNC test (#3016)
* Print out the VOL connector being used in the ASYNC test
* Add h5pget_vol_cap_flags_f with test
Diffstat (limited to 'fortran/src/H5Pff.F90')
-rw-r--r-- | fortran/src/H5Pff.F90 | 74 |
1 files changed, 52 insertions, 22 deletions
diff --git a/fortran/src/H5Pff.F90 b/fortran/src/H5Pff.F90 index 5ccc367..c6229f7 100644 --- a/fortran/src/H5Pff.F90 +++ b/fortran/src/H5Pff.F90 @@ -6047,15 +6047,15 @@ END SUBROUTINE h5pget_virtual_dsetname_f LOGICAL(C_BOOL) :: c_minimize INTERFACE - INTEGER FUNCTION h5pget_dset_no_attrs_hint_c(dcpl_id, minimize) BIND(C, NAME='H5Pget_dset_no_attrs_hint') - IMPORT :: HID_T, C_BOOL + INTEGER(C_INT) FUNCTION H5Pget_dset_no_attrs_hint_c(dcpl_id, minimize) BIND(C, NAME='H5Pget_dset_no_attrs_hint') + IMPORT :: C_INT, HID_T, C_BOOL IMPLICIT NONE INTEGER(HID_T), INTENT(IN), VALUE :: dcpl_id LOGICAL(C_BOOL), INTENT(OUT) :: minimize - END FUNCTION h5pget_dset_no_attrs_hint_c + END FUNCTION H5Pget_dset_no_attrs_hint_c END INTERFACE - hdferr = INT(h5pget_dset_no_attrs_hint_c(dcpl_id, c_minimize)) + hdferr = INT(H5Pget_dset_no_attrs_hint_c(dcpl_id, c_minimize)) ! Transfer value of C C_BOOL type to Fortran LOGICAL minimize = c_minimize @@ -6119,19 +6119,19 @@ END SUBROUTINE h5pget_virtual_dsetname_f TYPE(C_PTR) :: new_vol_info_default INTERFACE - INTEGER FUNCTION h5pset_vol(plist_id, new_vol_id, new_vol_info) BIND(C, NAME='H5Pset_vol') - IMPORT :: HID_T, C_PTR + INTEGER(C_INT) FUNCTION H5Pset_vol(plist_id, new_vol_id, new_vol_info) BIND(C, NAME='H5Pset_vol') + IMPORT :: C_INT, HID_T, C_PTR IMPLICIT NONE INTEGER(HID_T), INTENT(IN), VALUE :: plist_id INTEGER(HID_T), INTENT(IN), VALUE :: new_vol_id TYPE(C_PTR) , INTENT(IN), VALUE :: new_vol_info - END FUNCTION h5pset_vol + END FUNCTION H5Pset_vol END INTERFACE new_vol_info_default = C_NULL_PTR IF(PRESENT(new_vol_info)) new_vol_info_default=new_vol_info - hdferr = INT(h5pset_vol(plist_id, new_vol_id, new_vol_info_default)) + hdferr = INT(H5Pset_vol(plist_id, new_vol_id, new_vol_info_default)) END SUBROUTINE h5pset_vol_f @@ -6148,26 +6148,56 @@ END SUBROUTINE h5pget_virtual_dsetname_f !! SUBROUTINE h5pget_vol_id_f(plist_id, vol_id, hdferr) IMPLICIT NONE - INTEGER(HID_T) , INTENT(IN) :: plist_id - INTEGER(HID_T) , INTENT(OUT) :: vol_id - INTEGER , INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN) :: plist_id + INTEGER(HID_T), INTENT(OUT) :: vol_id + INTEGER , INTENT(OUT) :: hdferr INTERFACE - INTEGER FUNCTION h5pget_vol_id(plist_id, vol_id) BIND(C, NAME='H5Pget_vol_id') - IMPORT :: HID_T, C_PTR + INTEGER(C_INT) FUNCTION h5pget_vol_id(plist_id, vol_id) BIND(C, NAME='H5Pget_vol_id') + IMPORT :: C_INT, HID_T, C_PTR IMPLICIT NONE INTEGER(HID_T), INTENT(IN), VALUE :: plist_id INTEGER(HID_T), INTENT(OUT) :: vol_id END FUNCTION h5pget_vol_id END INTERFACE - hdferr = INT(h5pget_vol_id(plist_id, vol_id)) + hdferr = INT(H5Pget_vol_id(plist_id, vol_id)) END SUBROUTINE h5pget_vol_id_f !> !! \ingroup FH5P !! +!! \brief Query the capability flags for the VOL connector that will be used with this file access property list (FAPL). +! +!! \param plist_id File access property list identifier +!! \param cap_flags Flags that indicate the VOL connector capabilities +!! \param hdferr \fortran_error +!! +!! See C API: @ref H5Pget_vol_cap_flags() +!! + SUBROUTINE h5pget_vol_cap_flags_f(plist_id, cap_flags, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: plist_id + INTEGER(C_INT64_T), INTENT(OUT) :: cap_flags + INTEGER , INTENT(OUT) :: hdferr + + INTERFACE + INTEGER(C_INT) FUNCTION H5Pget_vol_cap_flags(plist_id, cap_flags) BIND(C, NAME='H5Pget_vol_cap_flags') + IMPORT :: C_INT, HID_T, C_PTR, C_INT64_T + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN), VALUE :: plist_id + INTEGER(C_INT64_T), INTENT(OUT) :: cap_flags + END FUNCTION H5Pget_vol_cap_flags + END INTERFACE + + hdferr = INT(H5Pget_vol_cap_flags(plist_id, cap_flags)) + + END SUBROUTINE h5pget_vol_cap_flags_f + +!> +!! \ingroup FH5P +!! !! \brief Gets the file locking properties. File locking is mainly used to help enforce SWMR semantics. !! !! \param fapl_id Target fileTarget file access property list identifier. @@ -6187,17 +6217,17 @@ END SUBROUTINE h5pget_virtual_dsetname_f LOGICAL(C_BOOL) :: c_ignore_flag INTERFACE - INTEGER FUNCTION h5pget_file_locking(fapl_id, use_file_locking, ignore_disabled_locks) & + INTEGER(C_INT) FUNCTION H5Pget_file_locking(fapl_id, use_file_locking, ignore_disabled_locks) & BIND(C, NAME='H5Pget_file_locking') - IMPORT :: HID_T, C_BOOL + IMPORT :: C_INT, HID_T, C_BOOL IMPLICIT NONE INTEGER(HID_T), INTENT(IN), VALUE :: fapl_id LOGICAL(C_BOOL), INTENT(OUT) :: use_file_locking LOGICAL(C_BOOL), INTENT(OUT) :: ignore_disabled_locks - END FUNCTION h5pget_file_locking + END FUNCTION H5Pget_file_locking END INTERFACE - hdferr = INT(h5pget_file_locking(fapl_id, c_use_flag, c_ignore_flag)) + hdferr = INT(H5Pget_file_locking(fapl_id, c_use_flag, c_ignore_flag)) ! Transfer value of C C_BOOL type to Fortran LOGICAL use_file_locking = c_use_flag @@ -6227,21 +6257,21 @@ END SUBROUTINE h5pget_virtual_dsetname_f LOGICAL(C_BOOL) :: c_ignore_flag INTERFACE - INTEGER FUNCTION h5pset_file_locking(fapl_id, use_file_locking, ignore_disabled_locks) & + INTEGER(C_INT) FUNCTION H5Pset_file_locking(fapl_id, use_file_locking, ignore_disabled_locks) & BIND(C, NAME='H5Pset_file_locking') - IMPORT :: HID_T, C_BOOL + IMPORT :: C_INT, HID_T, C_BOOL IMPLICIT NONE INTEGER(HID_T), INTENT(IN), VALUE :: fapl_id LOGICAL(C_BOOL), INTENT(IN), VALUE :: use_file_locking LOGICAL(C_BOOL), INTENT(IN), VALUE :: ignore_disabled_locks - END FUNCTION h5pset_file_locking + END FUNCTION H5Pset_file_locking END INTERFACE ! Transfer value of Fortran LOGICAL to C C_BOOL type c_use_flag = use_file_locking c_ignore_flag = ignore_disabled_locks - hdferr = INT(h5pset_file_locking(fapl_id, c_use_flag, c_ignore_flag)) + hdferr = INT(H5Pset_file_locking(fapl_id, c_use_flag, c_ignore_flag)) END SUBROUTINE h5pset_file_locking_f |