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