c
c <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< RANF >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
c
      real function ranf(isd)
      isd=isd*1566083941+1
      ranf=float(isd)*2.328306e-10+0.5
      return
      end