create_null_comm Function

private function create_null_comm() result(comm)

Arguments

None

Return Value type(comm_t)


Called by

proc~~create_null_comm~2~~CalledByGraph proc~create_null_comm~2 create_null_comm interface~comm_null~2 comm_null interface~comm_null~2->proc~create_null_comm~2 proc~comm_discard_leader~2 comm_t%comm_discard_leader proc~comm_discard_leader~2->interface~comm_null~2 proc~comm_split_by_color~2 comm_t%comm_split_by_color proc~comm_discard_leader~2->proc~comm_split_by_color~2 proc~comm_discard_to~2 comm_t%comm_discard_to proc~comm_discard_to~2->interface~comm_null~2 proc~comm_discard_to~2->proc~comm_split_by_color~2 proc~comm_duplicate~2 comm_t%comm_duplicate proc~comm_duplicate~2->interface~comm_null~2 proc~comm_split_by_color~2->interface~comm_null~2 proc~comm_split_shared~2 comm_t%comm_split_shared proc~comm_split_shared~2->interface~comm_null~2

Source Code

   function create_null_comm() result(comm)
      type(comm_t) :: comm

      ! Explicitly initialize to null/invalid state
      comm%m_comm = MPI_COMM_NULL
      comm%m_rank = -1_int32
      comm%m_size = -1_int32
      comm%is_valid = .false.
   end function create_null_comm