comm_leader Function

private pure function comm_leader(this) result(is_leader)

Returns true if the calling process has rank 0

Type Bound

comm_t

Arguments

Type IntentOptional Attributes Name
class(comm_t), intent(in) :: this

Return Value logical


Called by

proc~~comm_leader~~CalledByGraph proc~comm_leader comm_t%comm_leader proc~dlb_reset dlb_reset proc~dlb_reset->proc~comm_leader

Source Code

   pure function comm_leader(this) result(is_leader)
   !! Returns true if the calling process has rank 0
      class(comm_t), intent(in) :: this
      logical :: is_leader
      is_leader = (this%m_rank == 0)
   end function comm_leader