1 double precision function xc_hfexch() 2 implicit none 3c 4c This function returns the amount of Hartree-Fock exchange in a 5c "functional". If no functional is used (i.e. not a DFT 6c calculation) then the fraction of Hartree-Fock exchange is 1.0. 7c 8c 9#include "cdft.fh" 10c 11 logical xc_gotxc 12 external xc_gotxc 13c 14 xc_hfexch = 1.0d0 15 if (xc_gotxc()) then 16 xc_hfexch = xfac(1) 17 endif 18c 19 return 20 end 21c $Id$ 22