160fbe2beSVaclav Hapla! 260fbe2beSVaclav Hapla! Tests PetscHasExternalPackage(). 360fbe2beSVaclav Hapla! 460fbe2beSVaclav Hapla#include <petsc/finclude/petscsys.h> 5*c5e229c2SMartin Diehlprogram main 660fbe2beSVaclav Hapla use petscsys 760fbe2beSVaclav Hapla implicit none 860fbe2beSVaclav Hapla 960fbe2beSVaclav Hapla character(len=256) pkg, outputString 1060fbe2beSVaclav Hapla PetscBool has, flg 1160fbe2beSVaclav Hapla PetscErrorCode ierr 1260fbe2beSVaclav Hapla 13f8402805SBarry Smith PetscCallA(PetscInitialize(ierr)) 14dcb3e689SBarry Smith pkg = 'hdf5' 15dcb3e689SBarry Smith PetscCallA(PetscOptionsGetString(PETSC_NULL_OPTIONS, PETSC_NULL_CHARACTER, '-pkg', pkg, flg, ierr)) 16f8402805SBarry Smith PetscCallA(PetscHasExternalPackage(pkg, has, ierr)) 1760fbe2beSVaclav Hapla write (outputString, *) 'PETSc has '//trim(pkg)//'?', has, '\n' 18f8402805SBarry Smith PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr)) 19f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 2060fbe2beSVaclav Haplaend program main 2160fbe2beSVaclav Hapla 2260fbe2beSVaclav Hapla!/*TEST 2360fbe2beSVaclav Hapla! 2460fbe2beSVaclav Hapla! test: 2560fbe2beSVaclav Hapla! suffix: blaslapack 2660fbe2beSVaclav Hapla! args: -pkg blaslapack 2760fbe2beSVaclav Hapla! test: 2860fbe2beSVaclav Hapla! suffix: hdf5 2960fbe2beSVaclav Hapla! requires: hdf5 3060fbe2beSVaclav Hapla! args: -pkg hdf5 3160fbe2beSVaclav Hapla! test: 3260fbe2beSVaclav Hapla! suffix: no-hdf5 3360fbe2beSVaclav Hapla! requires: !hdf5 3460fbe2beSVaclav Hapla! args: -pkg hdf5 3560fbe2beSVaclav Hapla! test: 3660fbe2beSVaclav Hapla! suffix: parmetis 3760fbe2beSVaclav Hapla! requires: parmetis 3860fbe2beSVaclav Hapla! args: -pkg parmetis 3960fbe2beSVaclav Hapla! test: 4060fbe2beSVaclav Hapla! suffix: no-parmetis 4160fbe2beSVaclav Hapla! requires: !parmetis 4260fbe2beSVaclav Hapla! args: -pkg parmetis 4360fbe2beSVaclav Hapla! test: 4460fbe2beSVaclav Hapla! suffix: yaml 4560fbe2beSVaclav Hapla! requires: yaml 4660fbe2beSVaclav Hapla! args: -pkg yaml 4760fbe2beSVaclav Hapla! test: 4860fbe2beSVaclav Hapla! suffix: no-yaml 4960fbe2beSVaclav Hapla! requires: !yaml 5060fbe2beSVaclav Hapla! args: -pkg yaml 5160fbe2beSVaclav Hapla! 5260fbe2beSVaclav Hapla!TEST*/ 53