c----------------------------------------------------------------------
	function TSTF(rho,grad)
c finds the Thomas Fermi kinetic energy from rho
c
c
c author: Kieron Burke, 8.14.99
c     in: rho, grad
c    out:
c  calls:
	include 'basics.inc'