1: ! Demonstrates PetscViewerASCIIOpenWithFileUnit()
  2: #include <petsc/finclude/petscsys.h>
  3: program main
  4:   use petscsys

  6:   implicit none
  7:   PetscErrorCode :: ierr
  8:   PetscViewer    :: viewer
  9:   integer :: unit

 11:   ! Every PETSc program should begin with the PetscInitialize() routine.
 12:   PetscCallA(PetscInitialize(ierr))

 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))
 19: end program main

 21: !/*TEST
 22: !
 23: !   test:
 24: !     args: -options_view -options_left no
 25: !
 26: !TEST*/