}
/* Print process rank, loop count, message, and exit (i.e. a fatal error) */
-int rprintf(int rank, int loop, const char *fmt, ...)
+void rprintf(int rank, int loop, const char *fmt, ...)
{
va_list ap;
vprintf(fmt, ap);
- MPI_Finalize();
- exit(1);
+ MPI_Abort(MPI_COMM_WORLD, -1);
}
int main(int argc, char *argv[])