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