	function resp(epr,e)
c
	include '/u1/gcf/e350/crystal/cb/clouds'
c
	s=1./resolv(e)
	resp=s*.399*exp(-(epr-e)**2*.5*s*s)
	return
c
	end
