<pre><code class="language-c">htri_t H5Tis_variable_str( hid_t dtype_id )</code></pre>

<pre><code class="language-fortran">SUBROUTINE h5tis_variable_str_f(type_id, status, hdferr) 
  IMPLICIT NONE
  INTEGER(HID_T), INTENT(IN) :: type_id   ! Datatype identifier 
  LOGICAL, INTENT(OUT)       :: status    ! Logical flag:
                                          !    .TRUE.Positive if datatype is a 
                                          !         variable string
                                          !    .FALSE.Zero otherwise 
  INTEGER, INTENT(OUT) :: hdferr          ! Error code
END SUBROUTINE h5tis_variable_str_f</code></pre>