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