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 12*f8402805SBarry Smith PetscCallA(PetscInitialize(ierr)) 13*f8402805SBarry Smith PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS,PETSC_NULL_CHARACTER,'-f',filename,flg,ierr)) 14c4762a1bSJed Brown if (flg) then 15*f8402805SBarry Smith PetscCallA(PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,PETSC_NULL_OPTIONS,filename,PETSC_TRUE,ierr)) 16c4762a1bSJed Brown end if 17*f8402805SBarry Smith PetscCallA(PetscOptionsView(PETSC_NULL_OPTIONS,PETSC_VIEWER_STDOUT_WORLD,ierr)) 18*f8402805SBarry Smith PetscCallA(PetscOptionsAllUsed(PETSC_NULL_OPTIONS,n,ierr)); 19*f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 20c4762a1bSJed Brown end program ex10f90 21c4762a1bSJed Brown 22c4762a1bSJed Brown! 23c4762a1bSJed Brown!/*TEST 24c4762a1bSJed Brown! 25951eb098SLisandro Dalcin! testset: 26362febeeSStefano Zampini! filter: egrep -v "(options_left|malloc_dump|malloc_test|saws_port_auto_select|display|check_pointer_intensity|error_output_stdout|nox|vecscatter_mpi1|use_gpu_aware_mpi|checkstack)" 27c4762a1bSJed Brown! 28c4762a1bSJed Brown! test: 29c4762a1bSJed Brown! suffix: 1 30c4762a1bSJed Brown! args: -f petsc.yml -options_left 0 31c4762a1bSJed Brown! localrunfiles: petsc.yml 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! 38c4762a1bSJed Brown!TEST*/ 39