Thanks to Sven for noticing that the increment in scatter should be
per the send datatype, not the receive datatype (MPI-1:105). This commit was SVN r9312.
Этот коммит содержится в:
родитель
b8c9adc833
Коммит
8a9e76dfa3
@ -66,7 +66,7 @@ mca_coll_basic_scatter_intra(void *sbuf, int scount,
|
|||||||
|
|
||||||
/* I am the root, loop sending data. */
|
/* I am the root, loop sending data. */
|
||||||
|
|
||||||
err = ompi_ddt_get_extent(rdtype, &lb, &incr);
|
err = ompi_ddt_get_extent(sdtype, &lb, &incr);
|
||||||
if (OMPI_SUCCESS != err) {
|
if (OMPI_SUCCESS != err) {
|
||||||
return OMPI_ERROR;
|
return OMPI_ERROR;
|
||||||
}
|
}
|
||||||
@ -136,7 +136,7 @@ mca_coll_basic_scatter_inter(void *sbuf, int scount,
|
|||||||
comm, MPI_STATUS_IGNORE));
|
comm, MPI_STATUS_IGNORE));
|
||||||
} else {
|
} else {
|
||||||
/* I am the root, loop sending data. */
|
/* I am the root, loop sending data. */
|
||||||
err = ompi_ddt_get_extent(rdtype, &lb, &incr);
|
err = ompi_ddt_get_extent(sdtype, &lb, &incr);
|
||||||
if (OMPI_SUCCESS != err) {
|
if (OMPI_SUCCESS != err) {
|
||||||
return OMPI_ERROR;
|
return OMPI_ERROR;
|
||||||
}
|
}
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user