MPI_Reduce (buf0, buf1, buf_size, MPI_2INT, MPI_MAXLOC, 0, comm);
else
fprintf (stderr, "Not enough tasks for MAXLOC test\n");
MPI_Reduce (buf0, buf1, buf_size, MPI_2INT, MPI_MAXLOC, 0, comm);
else
fprintf (stderr, "Not enough tasks for MAXLOC test\n");