Get_rank_MPI Function

public function Get_rank_MPI(comm) result(rank)

Arguments

Type IntentOptional Attributes Name
integer, optional :: comm

Return Value integer


Calls

proc~~get_rank_mpi~~CallsGraph proc~get_rank_mpi Get_rank_MPI mpi_comm_rank mpi_comm_rank proc~get_rank_mpi->mpi_comm_rank proc~error_mpi Error_MPI proc~get_rank_mpi->proc~error_mpi

Called by

proc~~get_rank_mpi~~CalledByGraph proc~get_rank_mpi Get_rank_MPI proc~start_timer start_timer proc~start_timer->proc~get_rank_mpi proc~startmsg_mpi StartMsg_MPI proc~startmsg_mpi->proc~get_rank_mpi interface~start_progress start_progress interface~start_progress->proc~start_timer proc~init_mpi Init_MPI proc~init_mpi->proc~startmsg_mpi

Source Code

  function Get_rank_MPI(comm) result(rank)
    integer,optional :: comm
    integer          :: comm_
    integer          :: rank
    comm_=MPI_COMM_WORLD;if(present(comm))comm_=comm
    if(comm_/=Mpi_Comm_Null)then
       call MPI_Comm_rank(comm_,rank,ierr)
       call Error_MPI(ierr,"Get_Rank_MPI")
    else
       return
    endif
  end function Get_rank_MPI