- Remove useless error check
- Ensure err is set to MPI_SUCCESS on the IN_PLACE case This commit was SVN r7383.
Этот коммит содержится в:
родитель
3a0bf0d37d
Коммит
406f0575eb
@ -61,19 +61,15 @@ mca_coll_basic_gather_intra(void *sbuf, int scount,
|
|||||||
|
|
||||||
/* I am the root, loop receiving the data. */
|
/* I am the root, loop receiving the data. */
|
||||||
|
|
||||||
if (OMPI_SUCCESS != (err = ompi_ddt_get_extent(rdtype, &lb, &extent))) {
|
ompi_ddt_get_extent(rdtype, &lb, &extent);
|
||||||
return err;
|
|
||||||
}
|
|
||||||
|
|
||||||
incr = extent * rcount;
|
incr = extent * rcount;
|
||||||
for (i = 0, ptmp = (char *) rbuf; i < size; ++i, ptmp += incr) {
|
for (i = 0, ptmp = (char *) rbuf; i < size; ++i, ptmp += incr) {
|
||||||
|
|
||||||
/* simple optimization */
|
|
||||||
|
|
||||||
if (i == rank) {
|
if (i == rank) {
|
||||||
if (MPI_IN_PLACE != sbuf) {
|
if (MPI_IN_PLACE != sbuf) {
|
||||||
err = ompi_ddt_sndrcv(sbuf, scount, sdtype, ptmp,
|
err = ompi_ddt_sndrcv(sbuf, scount, sdtype,
|
||||||
rcount, rdtype);
|
ptmp, rcount, rdtype);
|
||||||
|
} else {
|
||||||
|
err = MPI_SUCCESS;
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
err = MCA_PML_CALL(recv(ptmp, rcount, rdtype, i,
|
err = MCA_PML_CALL(recv(ptmp, rcount, rdtype, i,
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user