removing one last typo from group_compare, re-added a check in group_translate_ranks, which I deleted accidentally
This commit was SVN r1259.
Этот коммит содержится в:
родитель
df91640da6
Коммит
1a2998bdab
@ -70,7 +70,7 @@ int MPI_Group_compare(MPI_Group group1, MPI_Group group2, int *result) {
|
||||
/* loop over group2 processes to find "match" */
|
||||
match=-1;
|
||||
for(proc2=0 ; proc2 < group2_pointer->grp_proc_count ; proc2++ ) {
|
||||
proc2_pointer=group1_pointer->grp_proc_pointers[proc2];
|
||||
proc2_pointer=group2_pointer->grp_proc_pointers[proc2];
|
||||
if( proc1_pointer == proc2_pointer ) {
|
||||
if(proc1 != proc2 ) {
|
||||
identical=0;
|
||||
|
@ -35,7 +35,7 @@ int MPI_Group_translate_ranks(MPI_Group group1, int n_ranks, int *ranks1,
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_GROUP,
|
||||
"MPI_Group_translate_ranks");
|
||||
}
|
||||
if( 0 >= n_ranks ){
|
||||
if( (n_ranks > group1_pointer->grp_proc_count) || (0 >= n_ranks) ){
|
||||
return OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_GROUP,
|
||||
"MPI_Group_translate_ranks - II ");
|
||||
}
|
||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user