<pre><code class="language-fortran">SUBROUTINE h5zfilter_avail_f(filter, status, hdferr)
IMPLICIT NONE
INTEGER, INTENT(IN) :: filter ! Filter
! Valid values are:
! H5Z_FILTER_DEFLATE_F
! H5Z_FILTER_SHUFFLE_F
! H5Z_FILTER_FLETCHER32_F
! H5Z_FILTER_SZIP_F
LOGICAL, INTENT(OUT) :: status ! Flag indicating whether
! filter is available:
! Positive
! Zero
INTEGER, INTENT(OUT) :: hdferr ! Returns 0 if successful and -1 if fails
END SUBROUTINE h5zfilter_avail_f</code></pre> |