1 program ex1f90 2 3#include <petsc/finclude/petscsys.h> 4 use petscsys 5 implicit none 6 integer4 unit 7 8 PetscErrorCode ierr 9 PetscCallA(PetscInitialize(ierr)) 10 11 unit = 22 12 call PetscViewerASCIIStdoutSetFileUnit(unit,ierr) 13 PetscCallA(PetscFinalize(ierr)) 14 end 15 16!/*TEST 17! 18! test: 19! requires: defined(PETSC_USE_LOG) 20! args: -log_view 21! 22!TEST*/ 23