<pre><code class="language-c">herr_t H5Fget_mpi_atomicity( hid_t file_id, hbool_t *flag )</code></pre>

<pre><code class="language-fortran">SUBROUTINE h5fget_mpi_atomicity_f(file_id, flag, hdferr) 
  IMPLICIT NONE
  INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier
  INTEGER(HBOOL_T), INTENT(OUT) :: flag ! Atomicity flag
  INTEGER, INTENT(OUT) :: hdferr        ! Error code:
                                        ! 0 on success, -1 on failure
END SUBROUTINE h5fget_mpi_atomicity_f </code></pre>