Actual source code: ex48f90.F90

  1: program ex10f90

  3: #include "petsc/finclude/petsc.h"
  4:   use petsc
  5:   implicit none

  7:   PetscErrorCode                            :: ierr
  8:   Character(len=256)                        :: filename
  9:   PetscBool                                 :: flg
 10:   PetscInt                                  :: n

 12:   PetscCallA(PetscInitialize(ierr))
 13:   PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-f', filename, flg, ierr))
 14:   if (flg) then
 15:     PetscCallA(PetscOptionsInsertFileYAML(PETSC_COMM_WORLD, PETSC_NULL_OPTIONS, filename, PETSC_TRUE, ierr))
 16:   end if
 17:   PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS, PETSC_VIEWER_STDOUT_WORLD, ierr))
 18:   PetscCallA(PetscOptionsAllUsed(PETSC_NULL_OPTIONS, n, ierr))
 19:   PetscCallA(PetscFinalize(ierr))
 20: end program ex10f90

 22: !
 23: !/*TEST
 24: !
 25: ! testset:
 26: !   test:
 27: !      suffix: 1
 28: !      args: -f petsc.yml -options_left 0
 29: !      localrunfiles: petsc.yml
 30: !
 31: !   test:
 32: !      suffix: 2
 33: !      args: -options_file_yaml petsc.yml -options_left 0
 34: !      localrunfiles: petsc.yml
 35: !
 36: !TEST*/