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 19*5c23ca1cSLisandro 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) 22c4762a1bSJed Brown call PetscOptionsAllUsed(PETSC_NULL_OPTIONS,n,ierr);CHKERRQ(ierr); 23c4762a1bSJed Brown Call PetscFinalize(ierr) 24c4762a1bSJed Brown end program ex10f90 25c4762a1bSJed Brown 26c4762a1bSJed Brown 27c4762a1bSJed Brown 28c4762a1bSJed Brown! 29c4762a1bSJed Brown!/*TEST 30c4762a1bSJed Brown! 31c4762a1bSJed Brown! build: 32c4762a1bSJed Brown! requires: yaml 33c4762a1bSJed Brown! 34c4762a1bSJed Brown! test: 35c4762a1bSJed Brown! suffix: 1 36c4762a1bSJed Brown! args: -f petsc.yml -options_left 0 37c4762a1bSJed Brown! filter: egrep -v "(malloc_dump|malloc_test|saws_port_auto_select|display|check_pointer_intensity|error_output_stdout|nox)" 38c4762a1bSJed Brown! localrunfiles: petsc.yml 39c4762a1bSJed Brown! 40c4762a1bSJed Brown! test: 41c4762a1bSJed Brown! suffix: 2 42c4762a1bSJed Brown! args: -options_file_yaml petsc.yml -options_left 0 43c4762a1bSJed Brown! filter: egrep -v "(malloc_dump|malloc_test|saws_port_auto_select|display|check_pointer_intensity|error_output_stdout|nox)" 44c4762a1bSJed Brown! localrunfiles: petsc.yml 45c4762a1bSJed Brown! 46c4762a1bSJed Brown!TEST*/ 47