1*c4762a1bSJed Brown program ex10f90 2*c4762a1bSJed Brown 3*c4762a1bSJed Brown#include "petsc/finclude/petsc.h" 4*c4762a1bSJed Brown use petsc 5*c4762a1bSJed Brown implicit none 6*c4762a1bSJed Brown 7*c4762a1bSJed Brown PetscErrorCode :: ierr 8*c4762a1bSJed Brown Character(len=256) :: filename 9*c4762a1bSJed Brown PetscBool :: flg 10*c4762a1bSJed Brown PetscInt :: n 11*c4762a1bSJed Brown 12*c4762a1bSJed Brown call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 13*c4762a1bSJed Brown if (ierr .ne. 0) then 14*c4762a1bSJed Brown print*,'Unable to initialize PETSc' 15*c4762a1bSJed Brown stop 16*c4762a1bSJed Brown endif 17*c4762a1bSJed Brown call PetscOptionsGetString(PETSC_NULL_OPTIONS,PETSC_NULL_CHARACTER,'-f',filename,flg,ierr);CHKERRA(ierr) 18*c4762a1bSJed Brown if (flg) then 19*c4762a1bSJed Brown call PetscOptionsInsertFileYAML(PETSC_COMM_WORLD,filename,PETSC_TRUE,ierr);CHKERRA(ierr) 20*c4762a1bSJed Brown end if 21*c4762a1bSJed Brown call PetscOptionsView(PETSC_NULL_OPTIONS,PETSC_VIEWER_STDOUT_WORLD,ierr);CHKERRA(ierr) 22*c4762a1bSJed Brown call PetscOptionsAllUsed(PETSC_NULL_OPTIONS,n,ierr);CHKERRQ(ierr); 23*c4762a1bSJed Brown Call PetscFinalize(ierr) 24*c4762a1bSJed Brown end program ex10f90 25*c4762a1bSJed Brown 26*c4762a1bSJed Brown 27*c4762a1bSJed Brown 28*c4762a1bSJed Brown! 29*c4762a1bSJed Brown!/*TEST 30*c4762a1bSJed Brown! 31*c4762a1bSJed Brown! build: 32*c4762a1bSJed Brown! requires: yaml 33*c4762a1bSJed Brown! 34*c4762a1bSJed Brown! test: 35*c4762a1bSJed Brown! suffix: 1 36*c4762a1bSJed Brown! args: -f petsc.yml -options_left 0 37*c4762a1bSJed Brown! filter: egrep -v "(malloc_dump|malloc_test|saws_port_auto_select|display|check_pointer_intensity|error_output_stdout|nox)" 38*c4762a1bSJed Brown! localrunfiles: petsc.yml 39*c4762a1bSJed Brown! 40*c4762a1bSJed Brown! test: 41*c4762a1bSJed Brown! suffix: 2 42*c4762a1bSJed Brown! args: -options_file_yaml petsc.yml -options_left 0 43*c4762a1bSJed Brown! filter: egrep -v "(malloc_dump|malloc_test|saws_port_auto_select|display|check_pointer_intensity|error_output_stdout|nox)" 44*c4762a1bSJed Brown! localrunfiles: petsc.yml 45*c4762a1bSJed Brown! 46*c4762a1bSJed Brown!TEST*/ 47