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;
 }