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 call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 13 if (ierr .ne. 0) then 14 print*,'Unable to initialize PETSc' 15 stop 16 endif 17 call PetscOptionsGetString(PETSC_NULL_OPTIONS,PETSC_NULL_CHARACTER,'-f',filename,flg,ierr);CHKERRA(ierr) 18 if (flg) then 19 call PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,filename,PETSC_TRUE,ierr);CHKERRA(ierr) 20 end if 21 call PetscOptionsView(PETSC_NULL_OPTIONS,PETSC_VIEWER_STDOUT_WORLD,ierr);CHKERRA(ierr) 22 call PetscOptionsAllUsed(PETSC_NULL_OPTIONS,n,ierr);CHKERRQ(ierr); 23 Call PetscFinalize(ierr) 24 end program ex10f90 25 26 27 28! 29!/*TEST 30! 31! build: 32! requires: yaml 33! 34! test: 35! suffix: 1 36! args: -f petsc.yml -options_left 0 37! filter: egrep -v "(malloc_dump|malloc_test|saws_port_auto_select|display|check_pointer_intensity|error_output_stdout|nox)" 38! localrunfiles: petsc.yml 39! 40! test: 41! suffix: 2 42! args: -options_file_yaml petsc.yml -options_left 0 43! filter: egrep -v "(malloc_dump|malloc_test|saws_port_auto_select|display|check_pointer_intensity|error_output_stdout|nox)" 44! localrunfiles: petsc.yml 45! 46!TEST*/ 47