Actual source code: errstop.c
petsc-3.7.1 2016-05-15
Report Typos and Errors

      2: #include <petscsys.h>           /*I "petscsys.h" I*/

      6: /*@C
      7:    PetscMPIAbortErrorHandler - Calls MPI_abort() and exits.

      9:    Not Collective

     11:    Input Parameters:
     12: +  comm - communicator over which error occurred
     13: .  line - the line number of the error (indicated by __LINE__)
     14: .  fun - the function where the error occurred (indicated by __FUNCT__)
     15: .  file - the file in which the error was detected (indicated by __FILE__)
     16: .  mess - an error text string, usually just printed to the screen
     17: .  n - the generic error number
     18: .  p - PETSC_ERROR_INITIAL if error just detected, otherwise PETSC_ERROR_REPEAT
     19: -  ctx - error handler context

     21:    Level: developer

     23:    Notes:
     24:    Most users need not directly employ this routine and the other error
     25:    handlers, but can instead use the simplified interface SETERRQ, which has
     26:    the calling sequence
     27: $     SETERRQ(comm,n,p,mess)

     29:    Notes for experienced users:
     30:    Use PetscPushErrorHandler() to set the desired error handler.  The
     31:    currently available PETSc error handlers include PetscTraceBackErrorHandler(),
     32:    PetscMPIAbortErrorHandler(), PetscAttachDebuggerErrorHandler(), and PetscAbortErrorHandler().

     34:    Concepts: error handler^stopping

     36: .seealso:  PetscPushErrorHandler(), PetscAttachDebuggerErrorHandler(),
     37:            PetscAbortErrorHandler(), PetscTraceBackErrorHandler()
     38:  @*/
     39: PetscErrorCode  PetscMPIAbortErrorHandler(MPI_Comm comm,int line,const char *fun,const char *file,PetscErrorCode n,PetscErrorType p,const char *mess,void *ctx)
     40: {
     41:   PetscBool      flg1 = PETSC_FALSE,flg2 = PETSC_FALSE,flg3 = PETSC_FALSE;
     42:   PetscLogDouble mem,rss;

     45:   if (!mess) mess = " ";

     47:   if (n == PETSC_ERR_MEM) {
     48:     (*PetscErrorPrintf)("%s() line %d in %s\n",fun,line,file);
     49:     (*PetscErrorPrintf)("Out of memory. This could be due to allocating\n");
     50:     (*PetscErrorPrintf)("too large an object or bleeding by not properly\n");
     51:     (*PetscErrorPrintf)("destroying unneeded objects.\n");
     52:     PetscMallocGetCurrentUsage(&mem); PetscMemoryGetCurrentUsage(&rss);
     53:     PetscOptionsGetBool(NULL,NULL,"-malloc_dump",&flg1,NULL);
     54:     PetscOptionsGetBool(NULL,NULL,"-malloc_log",&flg2,NULL);
     55:     PetscOptionsHasName(NULL,NULL,"-malloc_log_threshold",&flg3);
     56:     if (flg2 || flg3) PetscMallocDumpLog(stdout);
     57:     else {
     58:       (*PetscErrorPrintf)("Memory allocated %.0f Memory used by process %.0f\n",mem,rss);
     59:       if (flg1) PetscMallocDump(stdout);
     60:       else (*PetscErrorPrintf)("Try running with -malloc_dump or -malloc_log for info.\n");
     61:     }
     62:   } else if (n == PETSC_ERR_SUP) {
     63:     (*PetscErrorPrintf)("%s() line %d in %s\n",fun,line,file);
     64:     (*PetscErrorPrintf)("No support for this operation for this object type!\n");
     65:     (*PetscErrorPrintf)("%s\n",mess);
     66:   } else if (n == PETSC_ERR_SIG) (*PetscErrorPrintf)("%s() line %d in %s %s\n",fun,line,file,mess);
     67:   else (*PetscErrorPrintf)("%s() line %d in %s\n    %s\n",fun,line,file,mess);

     69:   MPI_Abort(PETSC_COMM_WORLD,n);
     70:   return(0);
     71: }