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