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