Actual source code: errstop.c

      2: #include <petscsys.h>

      4: /*@C
      5:    PetscMPIAbortErrorHandler - Calls PETSCABORT and exits.

      7:    Not Collective

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

     18:    Level: developer

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

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

     31: .seealso:  PetscError(), PetscPushErrorHandler(), PetscPopErrorHandler(), PetscAttachDebuggerErrorHandler(),
     32:            PetscAbortErrorHandler(), PetscMPIAbortErrorHandler(), PetscTraceBackErrorHandler(), PetscEmacsClientErrorHandler(), PetscReturnErrorHandler()
     33:  @*/
     34: PetscErrorCode  PetscMPIAbortErrorHandler(MPI_Comm comm,int line,const char *fun,const char *file,PetscErrorCode n,PetscErrorType p,const char *mess,void *ctx)
     35: {
     36:   PetscBool      flg1 = PETSC_FALSE,flg2 = PETSC_FALSE,flg3 = PETSC_FALSE;
     37:   PetscLogDouble mem,rss;

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

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

     63:   PETSCABORT(PETSC_COMM_WORLD,n);
     64:   return 0;
     65: }