1 #include <petscsys.h> /*I "petscsys.h" I*/ 2 #include "err.h" 3 4 /*@C 5 PetscMPIAbortErrorHandler - Calls `PETSCABORT()` and exits. 6 7 Not Collective, No Fortran Support 8 9 Input Parameters: 10 + comm - communicator over which error occurred 11 . line - the line number of the error (indicated by `__LINE__`) 12 . fun - the function name 13 . file - the file in which the error was detected (indicated by `__FILE__`) 14 . mess - an error text string, usually just printed to the screen 15 . n - the generic error number 16 . p - `PETSC_ERROR_INITIAL` if error just detected, otherwise `PETSC_ERROR_REPEAT` 17 - ctx - error handler context 18 19 Level: developer 20 21 Note: 22 Users do not directly call this routine 23 24 Use `PetscPushErrorHandler()` to set the desired error handler. The 25 currently available PETSc error handlers include `PetscTraceBackErrorHandler()`, 26 `PetscMPIAbortErrorHandler()`, `PetscAttachDebuggerErrorHandler()`, and `PetscAbortErrorHandler()`. 27 28 .seealso: `PetscError()`, `PetscPushErrorHandler()`, `PetscPopErrorHandler()`, `PetscAttachDebuggerErrorHandler()`, 29 `PetscAbortErrorHandler()`, `PetscTraceBackErrorHandler()`, `PetscEmacsClientErrorHandler()`, `PetscReturnErrorHandler()` 30 @*/ 31 PetscErrorCode PetscMPIAbortErrorHandler(MPI_Comm comm, int line, const char *fun, const char *file, PetscErrorCode n, PetscErrorType p, const char *mess, PetscCtx ctx) 32 { 33 PetscFunctionBegin; 34 if (!mess) mess = " "; 35 36 if (n == PETSC_ERR_MEM || n == PETSC_ERR_MEM_LEAK) (void)PetscErrorMemoryMessage(n); 37 else if (n == PETSC_ERR_SUP) { 38 (void)(*PetscErrorPrintf)("%s() at %s:%d\n", fun, file, line); 39 (void)(*PetscErrorPrintf)("No support for this operation for this object type!\n"); 40 (void)(*PetscErrorPrintf)("%s\n", mess); 41 } else if (n == PETSC_ERR_SIG) (void)(*PetscErrorPrintf)("%s() at %s:%d %s\n", fun, file, line, mess); 42 else (void)(*PetscErrorPrintf)("%s() at %s:%d\n %s\n", fun, file, line, mess); 43 44 PETSCABORT(PETSC_COMM_WORLD, n); 45 PetscFunctionReturn(PETSC_SUCCESS); 46 } 47