allreduce_sp_to Subroutine

private subroutine allreduce_sp_to(comm, sendbuf, recvbuf, op)

Arguments

Type IntentOptional Attributes Name
type(comm_t), intent(in) :: comm
real(kind=sp), intent(in) :: sendbuf
real(kind=sp), intent(out) :: recvbuf
type(MPI_Op), intent(in), optional :: op

Calls

proc~~allreduce_sp_to~~CallsGraph proc~allreduce_sp_to allreduce_sp_to mpi_allreduce mpi_allreduce proc~allreduce_sp_to->mpi_allreduce proc~comm_get comm_t%comm_get proc~allreduce_sp_to->proc~comm_get

Called by

proc~~allreduce_sp_to~~CalledByGraph proc~allreduce_sp_to allreduce_sp_to interface~allreduce allreduce interface~allreduce->proc~allreduce_sp_to proc~darray_gsumf darray_gsumf proc~darray_gsumf->interface~allreduce proc~darray_gsumi darray_gsumi proc~darray_gsumi->interface~allreduce

Variables

Type Visibility Attributes Name Initial
integer, private :: ierr
type(MPI_Op), private :: mpi_op

Source Code

   subroutine allreduce_sp_to(comm, sendbuf, recvbuf, op)
      type(comm_t), intent(in) :: comm
      real(sp), intent(in) :: sendbuf
      real(sp), intent(out) :: recvbuf
      type(MPI_Op), intent(in), optional :: op
      type(MPI_Op) :: mpi_op
      integer :: ierr

      if (present(op)) then
         mpi_op = op
      else
         mpi_op = MPI_SUM
      end if

      call MPI_Allreduce(sendbuf, recvbuf, 1, MPI_REAL, &
                         mpi_op, comm%get(), ierr)
   end subroutine allreduce_sp_to