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*/