1c6db04a5SJed Brown #include <petscsys.h> /*I "petscsys.h" I*/ 29beb8f72SToby Isaac #include "err.h" 3e5c89e4eSSatish Balay 4e5c89e4eSSatish Balay /*@C 5a3b724e8SBarry Smith PetscMPIAbortErrorHandler - Calls `PETSCABORT()` and exits. 6e5c89e4eSSatish Balay 7a3b724e8SBarry Smith Not Collective, No Fortran Support 8e5c89e4eSSatish Balay 9e5c89e4eSSatish Balay Input Parameters: 10e32f2f54SBarry Smith + comm - communicator over which error occurred 11a3b724e8SBarry Smith . line - the line number of the error (indicated by `__LINE__`) 1210450e9eSJacob Faibussowitsch . fun - the function name 13a3b724e8SBarry Smith . file - the file in which the error was detected (indicated by `__FILE__`) 14e5c89e4eSSatish Balay . mess - an error text string, usually just printed to the screen 15e5c89e4eSSatish Balay . n - the generic error number 16811af0c4SBarry Smith . p - `PETSC_ERROR_INITIAL` if error just detected, otherwise `PETSC_ERROR_REPEAT` 17e5c89e4eSSatish Balay - ctx - error handler context 18e5c89e4eSSatish Balay 19e5c89e4eSSatish Balay Level: developer 20e5c89e4eSSatish Balay 21811af0c4SBarry Smith Note: 22811af0c4SBarry Smith Users do not directly call this routine 23e5c89e4eSSatish Balay 24811af0c4SBarry Smith Use `PetscPushErrorHandler()` to set the desired error handler. The 25811af0c4SBarry Smith currently available PETSc error handlers include `PetscTraceBackErrorHandler()`, 26811af0c4SBarry Smith `PetscMPIAbortErrorHandler()`, `PetscAttachDebuggerErrorHandler()`, and `PetscAbortErrorHandler()`. 27e5c89e4eSSatish Balay 28db781477SPatrick Sanan .seealso: `PetscError()`, `PetscPushErrorHandler()`, `PetscPopErrorHandler()`, `PetscAttachDebuggerErrorHandler()`, 2942747ad1SJacob Faibussowitsch `PetscAbortErrorHandler()`, `PetscTraceBackErrorHandler()`, `PetscEmacsClientErrorHandler()`, `PetscReturnErrorHandler()` 30e5c89e4eSSatish Balay @*/ 31*2a8381b2SBarry Smith PetscErrorCode PetscMPIAbortErrorHandler(MPI_Comm comm, int line, const char *fun, const char *file, PetscErrorCode n, PetscErrorType p, const char *mess, PetscCtx ctx) 32d71ae5a4SJacob Faibussowitsch { 33e5c89e4eSSatish Balay PetscFunctionBegin; 34e5c89e4eSSatish Balay if (!mess) mess = " "; 35e5c89e4eSSatish Balay 36dd460d27SBarry Smith if (n == PETSC_ERR_MEM || n == PETSC_ERR_MEM_LEAK) (void)PetscErrorMemoryMessage(n); 379beb8f72SToby Isaac else if (n == PETSC_ERR_SUP) { 38dd460d27SBarry Smith (void)(*PetscErrorPrintf)("%s() at %s:%d\n", fun, file, line); 39dd460d27SBarry Smith (void)(*PetscErrorPrintf)("No support for this operation for this object type!\n"); 40dd460d27SBarry Smith (void)(*PetscErrorPrintf)("%s\n", mess); 41dd460d27SBarry Smith } else if (n == PETSC_ERR_SIG) (void)(*PetscErrorPrintf)("%s() at %s:%d %s\n", fun, file, line, mess); 42dd460d27SBarry Smith else (void)(*PetscErrorPrintf)("%s() at %s:%d\n %s\n", fun, file, line, mess); 43a297a907SKarl Rupp 4441e02c4dSJunchao Zhang PETSCABORT(PETSC_COMM_WORLD, n); 453ba16761SJacob Faibussowitsch PetscFunctionReturn(PETSC_SUCCESS); 46e5c89e4eSSatish Balay } 47