parallel_obj_Max_int_0d Subroutine

private impure subroutine parallel_obj_Max_int_0d(this, A, B)

MPI MAX reduction operation.

Type Bound

parallel_obj

Arguments

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

Parallel object
integer, intent(in) :: A

Send buffer
integer, intent(out) :: B

Receive buffer

Calls

proc~~parallel_obj_max_int_0d~~CallsGraph proc~parallel_obj_max_int_0d parallel_obj%parallel_obj_Max_int_0d mpi_allreduce mpi_allreduce proc~parallel_obj_max_int_0d->mpi_allreduce

Source Code

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

      call MPI_ALLREDUCE(A,B,1,MPI_INTEGER,MPI_MAX,this%comm%g,ierr)

      return
    end subroutine parallel_obj_Max_int_0d