1program 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)) 14end 15 16!/*TEST 17! 18! test: 19! requires: defined(PETSC_USE_LOG) 20! args: -log_view 21! output_file: output/empty.out 22! 23!TEST*/ 24