Date: 2013-07-02T14:39:27+00:00

Actual source code: ex10f90.F90
petsc-3.4.2 2013-07-02

      1:       program ex10f90
     2:  #include finclude/petscdef.h
      3:       use petsc
      4:       implicit none

      6:       PetscErrorCode                            :: ierr
      7:       Character(len=256)                        :: filename
      8:       PetscBool                                 :: flg

     10:       Call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
     11:       call PetscOptionsGetString(PETSC_NULL_CHARACTER,"-f",filename,flg,ierr)
     12:       if (flg) then
     13:          call PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,filename,PETSC_TRUE,ierr);
     14:       end if
     15:       call PetscOptionsView(PETSC_VIEWER_STDOUT_WORLD,ierr)
     16:       Call PetscFinalize(ierr)
     17:       end program ex10f90