FUNCTION RANDOM(IX)
      IY=IX*899
      IF(IY.LT.0) IY=IY+32767+1
      R=IY
      RANDOM=R/32767.
      IX = IY
      RETURN
      END