1c4762a1bSJed Brown! Example for PetscOptionsInsertFileYAML: Fortran Example 2c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 3*c5e229c2SMartin Diehlprogram main 4c4762a1bSJed Brown use petscsys 5c4762a1bSJed Brown 6c4762a1bSJed Brown implicit none 7c4762a1bSJed Brown PetscErrorCode :: ierr 862ac926dSPierre Jolivet character(len=PETSC_MAX_PATH_LEN) :: filename 9c4762a1bSJed Brown PetscBool :: flg 10c4762a1bSJed Brown 11f8402805SBarry Smith PetscCallA(PetscInitialize(ierr)) 12dcb3e689SBarry Smith PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-f', filename, flg, ierr)) 13c4762a1bSJed Brown if (flg) then 14f8402805SBarry Smith PetscCallA(PetscOptionsInsertFileYAML(PETSC_COMM_WORLD, PETSC_NULL_OPTIONS, filename, PETSC_TRUE, ierr)) 15c4762a1bSJed Brown end if 16c4762a1bSJed Brown 17f8402805SBarry Smith PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS, PETSC_VIEWER_STDOUT_WORLD, ierr)) 18f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 19c4762a1bSJed Brown 20c4762a1bSJed Brown!/*TEST 21c4762a1bSJed Brown! 22951eb098SLisandro Dalcin! testset: 23c4762a1bSJed Brown! test: 24c4762a1bSJed Brown! suffix: 1 25c4762a1bSJed Brown! args: -f petsc.yml -options_left 0 26c4762a1bSJed Brown! localrunfiles: petsc.yml 27c4762a1bSJed Brown! output_file: output/ex47_1.out 28c4762a1bSJed Brown! 29c4762a1bSJed Brown! test: 30c4762a1bSJed Brown! suffix: 2 31c4762a1bSJed Brown! args: -options_file_yaml petsc.yml -options_left 0 32c4762a1bSJed Brown! localrunfiles: petsc.yml 33c4762a1bSJed Brown! output_file: output/ex47_2.out 34c4762a1bSJed Brown! 35c4762a1bSJed Brown!TEST*/ 36c4762a1bSJed Brownend program main 37