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