1c4762a1bSJed Brown program ex10f90 2c4762a1bSJed Brown 3c4762a1bSJed Brown#include "petsc/finclude/petsc.h" 4c4762a1bSJed Brown use petsc 5c4762a1bSJed Brown implicit none 6c4762a1bSJed Brown 7c4762a1bSJed Brown PetscErrorCode :: ierr 8c4762a1bSJed Brown Character(len=256) :: filename 9c4762a1bSJed Brown PetscBool :: flg 10c4762a1bSJed Brown PetscInt :: n 11c4762a1bSJed Brown 12f8402805SBarry Smith PetscCallA(PetscInitialize(ierr)) 13f8402805SBarry Smith PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS,PETSC_NULL_CHARACTER,'-f',filename,flg,ierr)) 14c4762a1bSJed Brown if (flg) then 15f8402805SBarry Smith PetscCallA(PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,PETSC_NULL_OPTIONS,filename,PETSC_TRUE,ierr)) 16c4762a1bSJed Brown end if 17f8402805SBarry Smith PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS,PETSC_VIEWER_STDOUT_WORLD,ierr)) 18*ccfd86f1SBarry Smith PetscCallA(PetscOptionsAllUsed(PETSC_NULL_OPTIONS,n,ierr)) 19f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 20c4762a1bSJed Brown end program ex10f90 21c4762a1bSJed Brown 22c4762a1bSJed Brown! 23c4762a1bSJed Brown!/*TEST 24c4762a1bSJed Brown! 25951eb098SLisandro Dalcin! testset: 26c4762a1bSJed Brown! test: 27c4762a1bSJed Brown! suffix: 1 28c4762a1bSJed Brown! args: -f petsc.yml -options_left 0 29c4762a1bSJed Brown! localrunfiles: petsc.yml 30c4762a1bSJed Brown! 31c4762a1bSJed Brown! test: 32c4762a1bSJed Brown! suffix: 2 33c4762a1bSJed Brown! args: -options_file_yaml petsc.yml -options_left 0 34c4762a1bSJed Brown! localrunfiles: petsc.yml 35c4762a1bSJed Brown! 36c4762a1bSJed Brown!TEST*/ 37