1: /* 2: Demonstrates PETSc error handlers. 3: */ 5: #include petscsys.h 9: int CreateError(int n) 10: { 12: if (!n) SETERRQ(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: