comm_leader Function

private pure function comm_leader(this) result(is_leader)

Type Bound

Arguments

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

Return Value logical

Source Code

   pure function comm_leader(this) result(is_leader)
      class(comm_t), intent(in) :: this
      logical :: is_leader
      is_leader = (this%m_rank == 0_int32)
   end function comm_leader