1*ffeef943SBarry Smith program ex2f 2*ffeef943SBarry Smith 3*ffeef943SBarry Smith#include <petsc/finclude/petscsys.h> 4*ffeef943SBarry Smith use petscsys 5*ffeef943SBarry Smith implicit none 6*ffeef943SBarry Smith 7*ffeef943SBarry Smith PetscErrorCode ierr 8*ffeef943SBarry Smith 9*ffeef943SBarry Smith PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER,'ex2f90 test'//c_new_line,ierr)) 10*ffeef943SBarry Smith PetscCallA(PetscViewerView(PETSC_VIEWER_STDOUT_WORLD, PETSC_VIEWER_STDOUT_WORLD,ierr)); 11*ffeef943SBarry Smith PetscCallA(PetscFinalize(ierr)) 12*ffeef943SBarry Smith end 13*ffeef943SBarry Smith 14*ffeef943SBarry Smith/*TEST 15*ffeef943SBarry Smith 16*ffeef943SBarry Smith test: 17*ffeef943SBarry Smith args: 18*ffeef943SBarry Smith 19*ffeef943SBarry SmithTEST*/ 20