xref: /petsc/src/sys/classes/viewer/tutorials/ex3f.F90 (revision 9b88ac225e01f016352a5f4cd90e158abe5f5675)
19f0612e4SBarry Smith#include <petsc/finclude/petscsys.h>
2*c5e229c2SMartin Diehlprogram ex1f90
39f0612e4SBarry Smith  use petscsys
49f0612e4SBarry Smith  implicit none
59f0612e4SBarry Smith  integer4 unit
69f0612e4SBarry Smith
79f0612e4SBarry Smith  PetscErrorCode ierr
89f0612e4SBarry Smith  PetscCallA(PetscInitialize(ierr))
99f0612e4SBarry Smith
109f0612e4SBarry Smith  unit = 22
119f0612e4SBarry Smith  call PetscViewerASCIIStdoutSetFileUnit(unit, ierr)
129f0612e4SBarry Smith  PetscCallA(PetscFinalize(ierr))
139f0612e4SBarry Smithend
149f0612e4SBarry Smith
159f0612e4SBarry Smith!/*TEST
169f0612e4SBarry Smith!
179f0612e4SBarry Smith!     test:
189f0612e4SBarry Smith!       requires: defined(PETSC_USE_LOG)
199f0612e4SBarry Smith!       args: -log_view
203886731fSPierre Jolivet!       output_file: output/empty.out
219f0612e4SBarry Smith!
229f0612e4SBarry Smith!TEST*/
23