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