io_rank Function

public pure function io_rank() result(is_io)

Utility function to determine whether the current MPI process can do I/O.

Arguments

None

Return Value logical

Source Code

   pure logical function io_rank() result(is_io)
      !! Utility function to determine whether the current MPI process can do I/O.
      is_io = .false.
      if (nid == nio) is_io = .true.
   end function io_rank