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: !       output_file: output/empty.out
 22: !
 23: !TEST*/