- MPI_Group_range_incl( gworld, 1, range, &galt);
- for (i=0; i<nelms+1; i++) ranksout[i] = -1;
- MPI_Group_translate_ranks( ngroup, nelms+1, ranksin, galt, ranksout );
- for (i=0; i<nelms+1; i++) {
- if (ranksin[i] == MPI_PROC_NULL) {
- if (ranksout[i] != MPI_PROC_NULL) {
- fprintf( stderr, "Input rank for proc_null but output was %d\n",
- ranksout[i] );
- errs++;
- }
- }
- else if (ranksout[i] != (size-1)-ranks[ranksin[i]]) {
- fprintf( stderr, "Expected ranksout[%d] = %d but found %d\n",
- i, (size-1)-ranks[ranksin[i]], ranksout[i] );
- errs++;
- }
+ MPI_Group_range_incl(gworld, 1, range, &galt);
+ for (i = 0; i < nelms + 1; i++)
+ ranksout[i] = -1;
+ MPI_Group_translate_ranks(ngroup, nelms + 1, ranksin, galt, ranksout);
+ for (i = 0; i < nelms + 1; i++) {
+ if (ranksin[i] == MPI_PROC_NULL) {
+ if (ranksout[i] != MPI_PROC_NULL) {
+ fprintf(stderr, "Input rank for proc_null but output was %d\n", ranksout[i]);
+ errs++;
+ }
+ }
+ else if (ranksout[i] != (size - 1) - ranks[ranksin[i]]) {
+ fprintf(stderr, "Expected ranksout[%d] = %d but found %d\n",
+ i, (size - 1) - ranks[ranksin[i]], ranksout[i]);
+ errs++;
+ }