subroutine pseudo(n,a,b,x)
dimension a(n),b(n),x(n)

do i=1,n
	x(i)=a(i)+rand()*(b(i)-a(i))
end do

return
end