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 12c4762a1bSJed Brown call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 13c4762a1bSJed Brown if (ierr .ne. 0) then 14c4762a1bSJed Brown print*,'Unable to initialize PETSc' 15c4762a1bSJed Brown stop 16c4762a1bSJed Brown endif 17c4762a1bSJed Brown call PetscOptionsGetString(PETSC_NULL_OPTIONS,PETSC_NULL_CHARACTER,'-f',filename,flg,ierr);CHKERRA(ierr) 18c4762a1bSJed Brown if (flg) then 195c23ca1cSLisandro Dalcin call PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,PETSC_NULL_OPTIONS,filename,PETSC_TRUE,ierr);CHKERRA(ierr) 20c4762a1bSJed Brown end if 21c4762a1bSJed Brown call PetscOptionsView(PETSC_NULL_OPTIONS,PETSC_VIEWER_STDOUT_WORLD,ierr);CHKERRA(ierr) 22*951eb098SLisandro Dalcin call PetscOptionsAllUsed(PETSC_NULL_OPTIONS,n,ierr);CHKERRA(ierr); 23c4762a1bSJed Brown Call PetscFinalize(ierr) 24c4762a1bSJed Brown end program ex10f90 25c4762a1bSJed Brown 26c4762a1bSJed Brown 27c4762a1bSJed Brown 28c4762a1bSJed Brown! 29c4762a1bSJed Brown!/*TEST 30c4762a1bSJed Brown! 31*951eb098SLisandro Dalcin! testset: 32*951eb098SLisandro Dalcin! 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)" 33c4762a1bSJed Brown! 34c4762a1bSJed Brown! test: 35c4762a1bSJed Brown! suffix: 1 36c4762a1bSJed Brown! args: -f petsc.yml -options_left 0 37c4762a1bSJed Brown! localrunfiles: petsc.yml 38c4762a1bSJed Brown! 39c4762a1bSJed Brown! test: 40c4762a1bSJed Brown! suffix: 2 41c4762a1bSJed Brown! args: -options_file_yaml petsc.yml -options_left 0 42c4762a1bSJed Brown! localrunfiles: petsc.yml 43c4762a1bSJed Brown! 44c4762a1bSJed Brown!TEST*/ 45