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

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

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

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

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