1*60fbe2beSVaclav Hapla! 2*60fbe2beSVaclav Hapla! Tests PetscHasExternalPackage(). 3*60fbe2beSVaclav Hapla! 4*60fbe2beSVaclav Haplaprogram main 5*60fbe2beSVaclav Hapla 6*60fbe2beSVaclav Hapla#include <petsc/finclude/petscsys.h> 7*60fbe2beSVaclav Hapla use petscsys 8*60fbe2beSVaclav Hapla implicit none 9*60fbe2beSVaclav Hapla 10*60fbe2beSVaclav Hapla character(len=256) pkg, outputString 11*60fbe2beSVaclav Hapla PetscBool has,flg 12*60fbe2beSVaclav Hapla PetscErrorCode ierr 13*60fbe2beSVaclav Hapla 14*60fbe2beSVaclav Hapla call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 15*60fbe2beSVaclav Hapla if (ierr .ne. 0) then 16*60fbe2beSVaclav Hapla print*, 'Unable to begin PETSc program' 17*60fbe2beSVaclav Hapla endif 18*60fbe2beSVaclav Hapla 19*60fbe2beSVaclav Hapla pkg = "hdf5" 20*60fbe2beSVaclav Hapla call PetscOptionsGetString(PETSC_NULL_OPTIONS,PETSC_NULL_CHARACTER,"-pkg",pkg,flg,ierr);CHKERRA(ierr) 21*60fbe2beSVaclav Hapla call PetscHasExternalPackage(pkg,has,ierr);CHKERRA(ierr) 22*60fbe2beSVaclav Hapla write (outputString,*) 'PETSc has '//trim(pkg)//'?',has,'\n' 23*60fbe2beSVaclav Hapla call PetscPrintf(PETSC_COMM_WORLD,outputString,ierr);CHKERRA(ierr) 24*60fbe2beSVaclav Hapla call PetscFinalize(ierr) 25*60fbe2beSVaclav Hapla 26*60fbe2beSVaclav Haplaend program main 27*60fbe2beSVaclav Hapla 28*60fbe2beSVaclav Hapla!/*TEST 29*60fbe2beSVaclav Hapla! 30*60fbe2beSVaclav Hapla! test: 31*60fbe2beSVaclav Hapla! suffix: blaslapack 32*60fbe2beSVaclav Hapla! args: -pkg blaslapack 33*60fbe2beSVaclav Hapla! test: 34*60fbe2beSVaclav Hapla! suffix: hdf5 35*60fbe2beSVaclav Hapla! requires: hdf5 36*60fbe2beSVaclav Hapla! args: -pkg hdf5 37*60fbe2beSVaclav Hapla! test: 38*60fbe2beSVaclav Hapla! suffix: no-hdf5 39*60fbe2beSVaclav Hapla! requires: !hdf5 40*60fbe2beSVaclav Hapla! args: -pkg hdf5 41*60fbe2beSVaclav Hapla! test: 42*60fbe2beSVaclav Hapla! suffix: parmetis 43*60fbe2beSVaclav Hapla! requires: parmetis 44*60fbe2beSVaclav Hapla! args: -pkg parmetis 45*60fbe2beSVaclav Hapla! test: 46*60fbe2beSVaclav Hapla! suffix: no-parmetis 47*60fbe2beSVaclav Hapla! requires: !parmetis 48*60fbe2beSVaclav Hapla! args: -pkg parmetis 49*60fbe2beSVaclav Hapla! test: 50*60fbe2beSVaclav Hapla! suffix: yaml 51*60fbe2beSVaclav Hapla! requires: yaml 52*60fbe2beSVaclav Hapla! args: -pkg yaml 53*60fbe2beSVaclav Hapla! test: 54*60fbe2beSVaclav Hapla! suffix: no-yaml 55*60fbe2beSVaclav Hapla! requires: !yaml 56*60fbe2beSVaclav Hapla! args: -pkg yaml 57*60fbe2beSVaclav Hapla! 58*60fbe2beSVaclav Hapla!TEST*/ 59