MPI_Errhandler_set(newcomm1, MPI_ERRORS_RETURN);
/* Allocate many communicators in batches, then free them */
MPI_Errhandler_set(newcomm1, MPI_ERRORS_RETURN);
/* Allocate many communicators in batches, then free them */
for (j = 0; j < 200; j++) {
err = MPI_Comm_dup(newcomm1, &newcomm2[j]);
if (err) {
for (j = 0; j < 200; j++) {
err = MPI_Comm_dup(newcomm1, &newcomm2[j]);
if (err) {