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, parameter :: unit = 6

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

 14:   PetscCallA(PetscViewerASCIIOpenWithFileUnit(PETSC_COMM_WORLD, unit, viewer, ierr))
 15:   PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS, viewer, ierr))
 16:   PetscCallA(PetscViewerDestroy(viewer, ierr))
 17:   PetscCallA(PetscFinalize(ierr))
 18: end program main

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