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