Actual source code: ex3f.F90

  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*/