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: PetscOptionsAllUsed(PETSC_NULL_OPTIONS,n,ierr);
19: PetscCallA(PetscFinalize(ierr))
20: end program ex10f90
22: !
23: !/*TEST
24: !
25: ! testset:
26: ! filter: grep -E -v "(options_left)"
27: !
28: ! test:
29: ! suffix: 1
30: ! args: -f petsc.yml -options_left 0
31: ! localrunfiles: petsc.yml
32: !
33: ! test:
34: ! suffix: 2
35: ! args: -options_file_yaml petsc.yml -options_left 0
36: ! localrunfiles: petsc.yml
37: !
38: !TEST*/