c----------------------------------------------------------------------
	subroutine HOOKEDL(n,r0,omega,dl,nm,dd)
c  constructs the log of the density for many solutions to Hooke's atom.
c
c  author: Kieron Burke, 8.14.99
c      in: n - number of gridpoints
c          r0 - parameter for y grid
c          omega - spring constant for external potential of Hooke's atom
c          nm - number of expansion coefficients
c          dd - array with expansion coefficients
c     out: dl - log of ground state density 
c   calls: DLHOOKE
	implicit real*8(a-h,o-z)	
        parameter(m=10000)
	dimension dd(0:2*nm),dl(0:n)