FUNCTION UROUT(X)
	real r1
	urout=0
	r1=1.0
	do i=1,40
	UROUT=UROUT+cos(r1*x)
	r1=r1+1.
	end do
        END