1 2 static char help[] = "Tests dynamic loading of viewer.\n\n"; 3 4 #include <petscsys.h> 5 #include <petscviewer.h> 6 7 int main(int argc,char **args) 8 { 9 PetscViewer viewer; 10 11 PetscFunctionBeginUser; 12 PetscCall(PetscInitialize(&argc,&args,(char*)0,help)); 13 PetscCall(PetscViewerCreate(PETSC_COMM_WORLD,&viewer)); 14 PetscCall(PetscViewerSetFromOptions(viewer)); 15 PetscCall(PetscViewerDestroy(&viewer)); 16 17 PetscCall(PetscViewerASCIIOpen(PETSC_COMM_WORLD,"stdout",&viewer)); 18 PetscCall(PetscViewerDestroy(&viewer)); 19 PetscCall(PetscFinalize()); 20 return 0; 21 } 22 23 /*TEST 24 25 test: 26 27 TEST*/ 28