1
1

Fix to the invalid process lookup cause by group_intersection

This commit was SVN r15886.
Этот коммит содержится в:
Mohamad Chaarawi 2007-08-16 17:01:01 +00:00
родитель 20fe0952f7
Коммит b18129c260

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

@ -64,8 +64,13 @@ int ompi_group_incl_plist(ompi_group_t* group, int n, int *ranks,
/* find my rank */
my_group_rank=group_pointer->grp_my_rank;
my_proc_pointer=ompi_group_peer_lookup (group_pointer,my_group_rank);
ompi_set_group_rank(new_group_pointer,my_proc_pointer);
if (MPI_UNDEFINED != my_group_rank) {
my_proc_pointer=ompi_group_peer_lookup (group_pointer,my_group_rank);
ompi_set_group_rank(new_group_pointer,my_proc_pointer);
}
else {
new_group_pointer->grp_my_rank = MPI_UNDEFINED;
}
*new_group = (MPI_Group)new_group_pointer;