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