	function bmfunc(vv)
c     returns distribution of beam momentum
c
	include '/u1/gcf/e350/crystal/cb/beam'
c
	bmfunc=.5/dbeam
	return
	end
