8 common/ludatr/mrlu(6),rrlu(100)
10 equivalence(mrlu1,mrlu(1)),(mrlu2,mrlu(2)),(mrlu3,mrlu(3)),
11 &(mrlu4,mrlu(4)),(mrlu5,mrlu(5)),(mrlu6,mrlu(6)),
12 &(rrlu98,rrlu(98)),(rrlu99,rrlu(99)),(rrlu00,rrlu(100))
16 ij=mod(mrlu1/30082,31329)
26 m=mod(mod(
i*
j,179)*
k,179)
31 IF(mod(l*m,64).GE.32)
s=
s+
t
38 rrlu99=7654321.*twom24
39 rrlu00=16777213.*twom24
47 130 runi=rrlu(mrlu4)-rrlu(mrlu5)
48 IF(runi.LT.0.) runi=runi+1.
51 IF(mrlu4.EQ.0) mrlu4=97
53 IF(mrlu5.EQ.0) mrlu5=97
55 IF(rrlu98.LT.0.) rrlu98=rrlu98+rrlu00
57 IF(runi.LT.0.) runi=runi+1.
58 IF(runi.LE.0.OR.runi.GE.1.) goto 130
62 IF(mrlu3.EQ.1000000000)
THEN