Actual source code: ex1.c
petsc-3.3-p7 2013-05-11
1: /*
2: Demonstrates PETSc error handlers.
3: */
5: #include <petscsys.h>
9: int CreateError(int n)
10: {
12: if (!n) SETERRQ(PETSC_COMM_SELF,1,"Error Created");
13: CreateError(n-1);
14: return 0;
15: }
19: int main(int argc,char **argv)
20: {
22: PetscInitialize(&argc,&argv,(char *)0,0);
23: PetscFPrintf(PETSC_COMM_WORLD,stdout,"Demonstrates PETSc Error Handlers\n");
24: PetscFPrintf(PETSC_COMM_WORLD,stdout,"The error is a contrived error to test error handling\n");
25: PetscSynchronizedFlush(PETSC_COMM_WORLD);
26: CreateError(5);
27: PetscFinalize();
28: return 0;
29: }
30: