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