xref: /petsc/src/sys/classes/viewer/tutorials/ex2f.F90 (revision b3d9744d8d8d3288c26ceab4ed9a9ad25e3c9762)

      program ex2f

#include <petsc/finclude/petscsys.h>
      use petscsys
      implicit none

      PetscErrorCode ierr

      PetscCallA(PetscInitialize(PETSC_NULL_CHARACTER,'ex2f90 test'//c_new_line,ierr))
      PetscCallA(PetscViewerView(PETSC_VIEWER_STDOUT_WORLD, PETSC_VIEWER_STDOUT_WORLD,ierr));
      PetscCallA(PetscFinalize(ierr))
      end

/*TEST

   test:
      args:

TEST*/