1
1
This commit was SVN r29478.
Этот коммит содержится в:
Ralph Castain 2013-10-23 04:13:51 +00:00
родитель 7c86a843c8
Коммит 16b1ad052f

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

@ -1439,7 +1439,7 @@ static int ompi_comm_allreduce_group (int *inbuf, int* outbuf,
const int group_rank = ompi_group_rank (group);
int tag = *((int *) local_leader);
int *tmp1;
int i, rc;
int i, rc=OMPI_SUCCESS;
/* basic recursive doubling allreduce on the group */
peers_group[0] = group_rank ? ((group_rank - 1) >> 1) : MPI_PROC_NULL;