1
1

minor fix in scatterv_inter. We should now pass all ibm inter-collective tests.

This commit was SVN r5302.
Этот коммит содержится в:
Edgar Gabriel 2005-04-13 14:34:57 +00:00
родитель a2b1f98444
Коммит 4ef292717e

Просмотреть файл

@ -142,15 +142,12 @@ int mca_coll_basic_scatterv_inter(void *sbuf, int *scounts,
} }
for (i = 0; i < size; ++i) { for (i = 0; i < size; ++i) {
if (0 == scounts[i]) {
continue;
}
ptmp = ((char *) sbuf) + (extent * disps[i]); ptmp = ((char *) sbuf) + (extent * disps[i]);
err = MCA_PML_CALL(isend(ptmp, scounts[i], sdtype, i, err = MCA_PML_CALL(isend(ptmp, scounts[i], sdtype, i,
MCA_COLL_BASE_TAG_SCATTERV, MCA_COLL_BASE_TAG_SCATTERV,
MCA_PML_BASE_SEND_STANDARD, comm, reqs++)); MCA_PML_BASE_SEND_STANDARD, comm,
if (MPI_SUCCESS != err) { &(reqs[i])));
if (OMPI_SUCCESS != err) {
return err; return err;
} }
} }