c---------------------------------------------------------------------- function EVALGGA(func) c evaluates an unpolarized GGA energy, once dens and grad have already c been filled in; which one is determined by the function func. c c author: Kieron Burke, 8.14.99 c in: c out: c calls:FUNC,RNTGRL include 'basics.inc' include 'dens.inc' dimension dum(0:m) external func