Init_MPI Subroutine

public subroutine Init_MPI(comm, msg)

Arguments

Type IntentOptional Attributes Name
integer, optional :: comm
logical, optional :: msg

Calls

proc~~init_mpi~~CallsGraph proc~init_mpi Init_MPI mpi_init mpi_init proc~init_mpi->mpi_init proc~error_mpi Error_MPI proc~init_mpi->proc~error_mpi proc~startmsg_mpi StartMsg_MPI proc~init_mpi->proc~startmsg_mpi mpi_barrier mpi_barrier proc~startmsg_mpi->mpi_barrier proc~get_rank_mpi Get_rank_MPI proc~startmsg_mpi->proc~get_rank_mpi proc~get_size_mpi get_size_MPI proc~startmsg_mpi->proc~get_size_mpi proc~get_rank_mpi->proc~error_mpi mpi_comm_rank mpi_comm_rank proc~get_rank_mpi->mpi_comm_rank proc~get_size_mpi->proc~error_mpi mpi_comm_size mpi_comm_size proc~get_size_mpi->mpi_comm_size

Source Code

  subroutine Init_MPI(comm,msg)
    integer,optional :: comm
    logical,optional :: msg
    call MPI_Init(ierr)
    call Error_MPI(ierr,"MPI_Start")
    if(present(comm))comm=MPI_COMM_WORLD
    if(present(msg))then
       if(msg)call StartMsg_MPI(MPI_COMM_WORLD)
    endif
  end subroutine Init_MPI