1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
/*
Demonstrates PETSc error handlers.
*/
#include <petscsys.h>
#undef __FUNCT__
#define __FUNCT__ "CreateError"
int CreateError(int n)
{
PetscErrorCode ierr;
if (!n) SETERRQ(PETSC_COMM_SELF,1,"Error Created");
ierr = CreateError(n-1);CHKERRQ(ierr);
return 0;
}
#undef __FUNCT__
#define __FUNCT__ "main"
int main(int argc,char **argv)
{
PetscErrorCode ierr;
PetscInitialize(&argc,&argv,(char *)0,0);
ierr = PetscFPrintf(PETSC_COMM_WORLD,stdout,"Demonstrates PETSc Error Handlers\n");CHKERRQ(ierr);
ierr = PetscFPrintf(PETSC_COMM_WORLD,stdout,"The error is a contrived error to test error handling\n");CHKERRQ(ierr);
ierr = PetscSynchronizedFlush(PETSC_COMM_WORLD);CHKERRQ(ierr);
ierr = CreateError(5);CHKERRQ(ierr);
ierr = PetscFinalize();
return 0;
}
|
