       function ranx(kk)
       implicit real*8 (a-h,o-z)
       data m/100001/,konst/125/
       m=m*konst
       m=m-2796203*(m/2796203)
       ranx=m/2796203.d0
       return
       end
