comm_discard_to Function

private function comm_discard_to(this, num_ranks) result(new_comm)

Type Bound

comm_t

Arguments

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

Return Value type(comm_t)


Calls

proc~~comm_discard_to~~CallsGraph proc~comm_discard_to comm_t%comm_discard_to interface~comm_null comm_null proc~comm_discard_to->interface~comm_null proc~comm_split_by_color comm_t%comm_split_by_color proc~comm_discard_to->proc~comm_split_by_color proc~create_null_comm create_null_comm interface~comm_null->proc~create_null_comm proc~comm_split_by_color->interface~comm_null mpi_comm_split mpi_comm_split proc~comm_split_by_color->mpi_comm_split proc~create_comm_from_mpi create_comm_from_mpi proc~comm_split_by_color->proc~create_comm_from_mpi mpi_comm_rank mpi_comm_rank proc~create_comm_from_mpi->mpi_comm_rank mpi_comm_size mpi_comm_size proc~create_comm_from_mpi->mpi_comm_size

Variables

Type Visibility Attributes Name Initial
integer, private :: color

Source Code

   function comm_discard_to(this, num_ranks) result(new_comm)
      class(comm_t), intent(in) :: this
      integer, intent(in) :: num_ranks
      type(comm_t) :: new_comm
      integer :: color

      if (.not. this%is_valid) then
         new_comm = comm_null()
         return
      end if

      if (this%rank() < num_ranks) then
         color = 0
      else
         color = MPI_UNDEFINED
      end if
      new_comm = this%split_by(color)
   end function comm_discard_to