<pre><code class="language-c">herr_t H5Tget_fields( hid_t dtype_id, size_t *spos, size_t *epos, size_t *esize, size_t *mpos, size_t *msize )</code></pre>

<pre><code class="language-fortran">SUBROUTINE h5tget_fields_f(type_id, spos, epos, esize, mpos, msize, hdferr)
  IMPLICIT NONE
  INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
  INTEGER(SIZE_T), INTENT(OUT) :: spos  ! sign bit-position 
  INTEGER(SIZE_T), INTENT(OUT) :: epos  ! exponent bit-position 
  INTEGER(SIZE_T), INTENT(OUT) :: esize ! size of exponent in bits
  INTEGER(SIZE_T), INTENT(OUT) :: mpos  ! mantissa bit-position 
  INTEGER(SIZE_T), INTENT(OUT) :: msize ! size of mantissa in bits
  INTEGER, INTENT(OUT) :: hdferr        ! Error code
END SUBROUTINE h5tget_fields_f</code></pre>