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