Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!kingston.ac.uk!KARWATZKI
From: KARWATZKI@kingston.ac.uk
Newsgroups: comp.sys.transputer
Subject: (none)
Message-ID: <18997.9003151034@prg.oxford.ac.uk>
Date: 15 Mar 90 10:25:35 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 22

Subject : RE Problem with Occam RAN function

I can't comment on the use of RAN but RANP works fine
from the Maths Library :

PROC RANP(REAL32 RanOut, INT32 SeedRan)
  INT RanOut   RETYPES RanOut,
      SeedRan  RETYPES SeedRan :
  VAL RealXcess IS 127 :
  VAL A IS 1664525 :
  SEQ
    SeedRan := (SeedRan TIMES A) PLUS 1
    ROUNDSN (RanOut, RealXcess - 1, SeedRan, 0)
:

So you would replace 
                     y,x := RAN(X)
with
                     RANP(y,x)

John Karwatzki
KARWATZKI@UK.AC.KINGSTON