Skip to content

Commit

Permalink
fixed sig.
Browse files Browse the repository at this point in the history
  • Loading branch information
brtnfld committed Oct 11, 2023
1 parent af18e8c commit c2700b8
Showing 1 changed file with 16 additions and 5 deletions.
21 changes: 16 additions & 5 deletions fortran/src/H5Pff.F90
Original file line number Diff line number Diff line change
Expand Up @@ -6405,7 +6405,7 @@ END SUBROUTINE H5Pset_file_space_strategy_f
!! \brief Gets the file space handling strategy and persisting free-space values for a file creation property list.
!!
!! \param plist_id File creation property list identifier
!! \param strategy The file space handling strategy to be used.
!! \param strategy The file space handling strategy to be used
!! \param persist Indicate whether free space should be persistent or not
!! \param threshold The free-space section size threshold value
!! \param hdferr \fortran_error
Expand Down Expand Up @@ -6507,15 +6507,26 @@ END FUNCTION H5Pget_file_space_page_size
hdferr = INT(h5pget_file_space_page_size(prp_id, fsp_size))

END SUBROUTINE h5pget_file_space_page_size_f

SUBROUTINE h5pget_actual_selection_io_mode(plist_id, actual_selection_io_mode, hdferr)
!>
!! \ingroup FH5P
!!
!! \brief Retrieves the type(s) of I/O that HDF5 actually performed on raw data
!! during the last I/O call.
!!
!! \param plist_id File creation property list identifier
!! \param actual_selection_io_mode A bitwise set value indicating the type(s) of I/O performed
!! \param hdferr \fortran_error
!!
!! See C API: @ref H5Pget_actual_selection_io_mode()
!!
SUBROUTINE h5pget_actual_selection_io_mode_f(plist_id, actual_selection_io_mode, hdferr)

IMPLICIT NONE
INTEGER(HID_T), INTENT(IN) :: plist_id
INTEGER , INTENT(OUT) :: actual_selection_io_mode
INTEGER , INTENT(OUT) :: hdferr

INTEGER(C_INT32_T) :: c_actual_selection_io_mode
INTEGER(C_INT32_T) :: c_actual_selection_io_mode

INTERFACE
INTEGER(C_INT) FUNCTION H5Pget_actual_selection_io_mode(plist_id, actual_selection_io_mode) &
Expand All @@ -6531,7 +6542,7 @@ END FUNCTION H5Pget_actual_selection_io_mode

actual_selection_io_mode = INT(c_actual_selection_io_mode)

END SUBROUTINE h5pget_actual_selection_io_mode
END SUBROUTINE h5pget_actual_selection_io_mode_f

END MODULE H5P

0 comments on commit c2700b8

Please sign in to comment.