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