Gathers rank-2 data from all processes and all processes receive the same data
see mp_allgather_l12
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=int_8), | intent(in), | CONTIGUOUS | :: | msgout(:,:) |
Rank-2 data to send |
|
integer(kind=int_8), | intent(out), | CONTIGUOUS | :: | msgin(:,:) | ||
integer, | intent(in) | :: | gid | |||
integer, | intent(out) | :: | request |
SUBROUTINE mp_iallgather_l22(msgout, msgin, gid, request)
!! Gathers rank-2 data from all processes and all processes receive the
!! same data
!! @note see mp_allgather_l12
INTEGER(KIND=int_8), CONTIGUOUS, INTENT(IN) :: msgout(:, :)
!! Rank-2 data to send
INTEGER(KIND=int_8), CONTIGUOUS, INTENT(OUT) :: msgin(:, :)
INTEGER, INTENT(IN) :: gid
INTEGER, INTENT(OUT) :: request
CHARACTER(LEN=*), PARAMETER :: routineN = 'mp_iallgather_l22'
INTEGER :: handle, ierr
#if defined(__parallel)
INTEGER :: rcount, scount
#endif
ierr = 0
CALL timeset(routineN, handle)
#if defined(__parallel)
scount = SIZE(msgout(:, :))
rcount = scount
CALL MPI_IALLGATHER(msgout, scount, MPI_INTEGER8, &
msgin, rcount, MPI_INTEGER8, &
gid, request, ierr)
IF (ierr /= 0) CALL mp_stop(ierr, "mpi_iallgather @ "//routineN)
#else
MARK_USED(gid)
msgin(:, :) = msgout(:, :)
request = mp_request_null
#endif
CALL timestop(handle)
END SUBROUTINE mp_iallgather_l22