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