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