1c4762a1bSJed Brown#include "petsc/finclude/petsc.h" 2c5e229c2SMartin Diehlprogram ex10f90 3c4762a1bSJed Brown use petsc 4c4762a1bSJed Brown implicit none 5c4762a1bSJed Brown 6c4762a1bSJed Brown PetscErrorCode :: ierr 7*02c639afSMartin Diehl character(len=256) :: filename 8c4762a1bSJed Brown PetscBool :: flg 9c4762a1bSJed Brown PetscInt :: n 10c4762a1bSJed Brown 11f8402805SBarry Smith PetscCallA(PetscInitialize(ierr)) 12f8402805SBarry 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 16f8402805SBarry Smith PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS, PETSC_VIEWER_STDOUT_WORLD, ierr)) 17ccfd86f1SBarry Smith PetscCallA(PetscOptionsAllUsed(PETSC_NULL_OPTIONS, n, ierr)) 18f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 19c4762a1bSJed Brownend program ex10f90 20c4762a1bSJed Brown 21c4762a1bSJed Brown! 22c4762a1bSJed Brown!/*TEST 23c4762a1bSJed Brown! 24951eb098SLisandro Dalcin! testset: 25c4762a1bSJed Brown! test: 26c4762a1bSJed Brown! suffix: 1 27c4762a1bSJed Brown! args: -f petsc.yml -options_left 0 28c4762a1bSJed Brown! localrunfiles: petsc.yml 29c4762a1bSJed Brown! 30c4762a1bSJed Brown! test: 31c4762a1bSJed Brown! suffix: 2 32c4762a1bSJed Brown! args: -options_file_yaml petsc.yml -options_left 0 33c4762a1bSJed Brown! localrunfiles: petsc.yml 34c4762a1bSJed Brown! 35c4762a1bSJed Brown!TEST*/ 36