Actual source code: ex10f90.F90

petsc-dev 2014-07-09
Report Typos and Errors
  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