ports/openmpi
ports/openmpi
1
1
Форкнуть 0
Код Релизы Активность

fix a bug in the intercomm-split allgather emulation function.

Просмотр исходного кода 
This commit was SVN r9806.
Этот коммит содержится в:
Edgar Gabriel 2006-05-03 21:41:10 +00:00
родитель c5209aad93
Коммит 8c49f14dce
1 изменённых файлов: 3 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

5
ompi/communicator/comm.c
Просмотреть файл

@ -694,11 +694,12 @@ static int ompi_comm_allgather_emulate_intra( void *inbuf, int incount,
int outcount, MPI_Datatype outtype, int outcount, MPI_Datatype outtype,
ompi_communicator_t *comm) ompi_communicator_t *comm)
{ {
int rank, rsize, i, rc; int rank, size, rsize, i, rc;
int *tmpbuf=NULL; int *tmpbuf=NULL;
MPI_Request *req=NULL, sendreq; MPI_Request *req=NULL, sendreq;
rsize = ompi_comm_remote_size(comm); rsize = ompi_comm_remote_size(comm);
size = ompi_comm_size(comm);
rank = ompi_comm_rank(comm); rank = ompi_comm_rank(comm);
/* Step 1: the gather-step */ /* Step 1: the gather-step */
@ -736,7 +737,7 @@ static int ompi_comm_allgather_emulate_intra( void *inbuf, int incount,
} }
/* Step 2: the inter-bcast step */ /* Step 2: the inter-bcast step */
rc = MCA_PML_CALL(irecv (outbuf, rsize*outcount, outtype, 0, rc = MCA_PML_CALL(irecv (outbuf, size*outcount, outtype, 0,
OMPI_COMM_ALLGATHER_TAG, comm, &sendreq)); OMPI_COMM_ALLGATHER_TAG, comm, &sendreq));
if ( OMPI_SUCCESS != rc ) { if ( OMPI_SUCCESS != rc ) {
goto exit; goto exit;