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 CHKERRQ(PetscInitialize(&argc,&args,(char*)0,help)); 12 CHKERRQ(PetscViewerCreate(PETSC_COMM_WORLD,&viewer)); 13 CHKERRQ(PetscViewerSetFromOptions(viewer)); 14 CHKERRQ(PetscViewerDestroy(&viewer)); 15 16 CHKERRQ(PetscViewerASCIIOpen(PETSC_COMM_WORLD,"stdout",&viewer)); 17 CHKERRQ(PetscViewerDestroy(&viewer)); 18 CHKERRQ(PetscFinalize()); 19 return 0; 20 } 21 22 /*TEST 23 24 test: 25 26 TEST*/ 27