MPI_Allreduce( &errs, &toterrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD );
MPI_Comm_rank( MPI_COMM_WORLD, &rank );
if (rank == 0) {
MPI_Allreduce( &errs, &toterrs, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD );
MPI_Comm_rank( MPI_COMM_WORLD, &rank );
if (rank == 0) {