tem_status_communicate Subroutine

public subroutine tem_status_communicate(me, comm)

Perform the communication of status bits

Arguments

Type IntentOptional Attributes Name
type(tem_status_type), intent(inout) :: me

Status to communicate.
integer, intent(in) :: comm

Communicator to use for the MPI reduction operation.

Source Code

  subroutine tem_status_communicate(me, comm)
    ! --------------------------------------------------------------------------!
    !> Status to communicate.
    type(tem_status_type), intent(inout) :: me

    !> Communicator to use for the MPI reduction operation.
    integer, intent(in) :: comm
    ! --------------------------------------------------------------------------!
    integer :: iError
    logical :: local_bits(tem_stat_nFlags)
    ! --------------------------------------------------------------------------!

    local_bits = me%bits
    call mpi_allreduce( local_bits, me%bits, tem_stat_nFlags, MPI_LOGICAL, &
      &                 MPI_LOR, comm, iError                              )

  end subroutine tem_status_communicate