parallel_obj_Lor_1d Subroutine

private impure subroutine parallel_obj_Lor_1d(this, A, B)

MPI LOGICAL OR reduction operation.

Type Bound

parallel_obj

Arguments

Type IntentOptional Attributes Name
class(parallel_obj), intent(inout) :: this

Parallel object
logical, intent(in) :: A(:)

Send buffer
logical, intent(out) :: B(:)

Receive buffer

Calls

proc~~parallel_obj_lor_1d~~CallsGraph proc~parallel_obj_lor_1d parallel_obj%parallel_obj_Lor_1d mpi_allreduce mpi_allreduce proc~parallel_obj_lor_1d->mpi_allreduce

Called by

proc~~parallel_obj_lor_1d~~CalledByGraph proc~parallel_obj_lor_1d parallel_obj%parallel_obj_Lor_1d none~lor parallel_obj%LOR none~lor->proc~parallel_obj_lor_1d proc~cdifs_obj_preparesolverbcs cdifs_obj_PrepareSolverBCS proc~cdifs_obj_preparesolverbcs->none~lor proc~grans_obj_preparesolverbcs grans_obj_PrepareSolverBCS proc~grans_obj_preparesolverbcs->none~lor proc~cdifs_obj_preparesolver cdifs_obj_PrepareSolver proc~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolverbcs proc~grans_obj_preparesolver grans_obj_PrepareSolver proc~grans_obj_preparesolver->proc~grans_obj_preparesolverbcs interface~cdifs_obj_preparesolver cdifs_obj%cdifs_obj_PrepareSolver interface~cdifs_obj_preparesolver->proc~cdifs_obj_preparesolver interface~grans_obj_preparesolver grans_obj%grans_obj_PrepareSolver interface~grans_obj_preparesolver->proc~grans_obj_preparesolver

Source Code

    impure subroutine parallel_obj_Lor_1d(this,A,B)
      !> MPI LOGICAL OR reduction operation.
      implicit none
      class(parallel_obj), intent(inout) :: this                               !! Parallel object
      logical,             intent(in)   :: A(:)                                !! Send buffer
      logical,             intent(out)  :: B(:)                                !! Receive buffer
      ! Work variables
      integer :: ierr

      call MPI_ALLREDUCE(A,B,size(A),this%LOGICAL,MPI_LOR,this%comm%g,ierr)

      return
    end subroutine parallel_obj_Lor_1d