set_error_mpi Subroutine

public subroutine set_error_mpi(err, mesg, comm)

Arguments

Type IntentOptional Attributes Name
type(w90_error_type), intent(out), allocatable :: err
character(len=*), intent(in) :: mesg
type(w90_comm_type), intent(in) :: comm

Calls

proc~~set_error_mpi~~CallsGraph proc~set_error_mpi set_error_mpi proc~comms_sync_error comms_sync_error proc~set_error_mpi->proc~comms_sync_error proc~set_base_error set_base_error proc~set_error_mpi->proc~set_base_error

Source Code

  subroutine set_error_mpi(err, mesg, comm)
    type(w90_error_type), allocatable, intent(out) :: err
    character(len=*), intent(in) :: mesg
    type(w90_comm_type), intent(in) :: comm
    call set_base_error(err, mesg, code_mpi)
    call comms_sync_error(comm, err, code_mpi)
  end subroutine set_error_mpi