get_process_data Subroutine

  1. layout.f90
  2. layout
  3. get_process_data

public subroutine get_process_data(control)

Get Processor Id and total number of processors

Arguments

Type IntentOptional AttributesName
type(controltype), intent(inout) :: control

Control parameters

Calls

proc~~get_process_data~~CallsGraph proc~get_process_data get_process_data mpi_comm_size mpi_comm_size proc~get_process_data->mpi_comm_size mpi_comm_rank mpi_comm_rank proc~get_process_data->mpi_comm_rank

Called by

proc~~get_process_data~~CalledByGraph proc~get_process_data get_process_data proc~setup_solver setup_solver proc~setup_solver->proc~get_process_data proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

get_process_data

Source Code

  subroutine get_process_data(control)
    !<Get Processor Id and total number of processors
  implicit none
  type(controltype), intent(inout) :: control
  !< Control parameters
    ! Finds and sets process data
    integer :: ierr
    call MPI_COMM_RANK(MPI_COMM_WORLD,control%process_id,ierr)
    call MPI_COMM_SIZE(MPI_COMM_WORLD,control%total_process,ierr)
    process_id = control%process_id

  end subroutine get_process_data