c-----------------------------------------------------------------------
	function DLONE(nd,r)
c produces the log of an analytic 1-e density.
c
c author: Kieron Burke, 8.14.99
c     in: nd (0=> H-atom, 1=> smoothed H-atom, 2=> Gaussian, k=1)
c	  r - distance from center
c    out: return value of function: log of an analytic 1-e density at r
c  calls: --
        implicit real*8(a-h,o-z)
        parameter(pi=3.1415926535897932384626433832795d0)