1! Demonstrates PetscViewerASCIIOpenWithFileUnit() 2#include <petsc/finclude/petscsys.h> 3program main 4 use petscsys 5 6 implicit none 7 PetscErrorCode :: ierr 8 PetscViewer :: viewer 9 integer :: unit 10 11 ! Every PETSc program should begin with the PetscInitialize() routine. 12 PetscCallA(PetscInitialize(ierr)) 13 14 unit = 6 15 PetscCallA(PetscViewerASCIIOpenWithFileUnit(PETSC_COMM_WORLD, unit, viewer, ierr)) 16 PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS, viewer, ierr)) 17 PetscCallA(PetscViewerDestroy(viewer, ierr)) 18 PetscCallA(PetscFinalize(ierr)) 19end program main 20 21!/*TEST 22! 23! test: 24! args: -options_view -options_left no 25! 26!TEST*/ 27