      subroutine ransu(iy,r)
      implicit none
      integer iy
      real*8 r
      iy=iy*48828125
      if(iy.lt.0) iy=(iy+2147483647)+1
      r=dfloat(iy)*4.6566128e-10
      return
      end