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