create_world_comm Function

private function create_world_comm() result(comm)

Arguments

None

Return Value type(comm_t)


Calls

proc~~create_world_comm~2~~CallsGraph proc~create_world_comm~2 create_world_comm mpi_comm_dup mpi_comm_dup proc~create_world_comm~2->mpi_comm_dup proc~create_comm_from_mpi~2 create_comm_from_mpi proc~create_world_comm~2->proc~create_comm_from_mpi~2 mpi_comm_rank mpi_comm_rank proc~create_comm_from_mpi~2->mpi_comm_rank mpi_comm_size mpi_comm_size proc~create_comm_from_mpi~2->mpi_comm_size

Called by

proc~~create_world_comm~2~~CalledByGraph proc~create_world_comm~2 create_world_comm interface~comm_world~2 comm_world interface~comm_world~2->proc~create_world_comm~2

Variables

Type Visibility Attributes Name Initial
integer, private :: dup_comm
integer(kind=int32), private :: ierr

Source Code

   function create_world_comm() result(comm)
      type(comm_t) :: comm
      integer :: dup_comm
      integer(int32) :: ierr

      call MPI_Comm_dup(MPI_COMM_WORLD, dup_comm, ierr)
      comm = create_comm_from_mpi(dup_comm)

   end function create_world_comm