1 2 3 4 5 6 7 8 9 10 11 12 13 14 | herr_t
ss_error(void)
{
/* SS_ENTER -- skipped because this is error handling for the error stack */
int self;
if (ss_err_cntl_g.nerrors==sslib_g.debug_error) {
self = ss_mpi_comm_rank(SS_COMM_WORLD);
fprintf(stderr, "SSLIB: MPI task %d, PID %d encountered error %lu\n",
self, getpid(), (unsigned long)(ss_err_cntl_g.nerrors));
ss_debug_start(sslib_g.debugger);
}
return 0;
}
|