c-----------------------------------------------------------------------
	function DLKAIS(r)
c produces the log of the Hooke's atom density for k=1/4
c
c
c author: Kieron Burke, 8.14.99
c     in: r - distance from center
c    out: return value of function: log of the Hooke's atom density at r
c  calls: DERF
        implicit real*8(a-h,o-z)
        parameter(pi=3.1415926535897932384626433832795d0)