1: ! Demonstrates PetscViewerASCIIOpenWithFileUnit()

  3: program main
  4: #include <petsc/finclude/petscsys.h>
  5:       use petscmpi  ! or mpi or mpi_f08
  6:       use petscsys

  8:       implicit none
  9:       PetscErrorCode :: ierr
 10:       PetscViewer    :: viewer
 11:       PetscInt :: unit

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

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

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