projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
749e17f538075d820542611fbedc423c2c1e251f
[pdp8.git]
/
RND.FT
1
INTEGER FUNCTION RND(LIMIT)
2
3
C
4
C GENERATES RANDOM INTEGER IN THE RANGE
5
C 0 < N < LIMIT
6
C
7
C USES THE RANDOM SEED GENERATED BY THE
8
C RALF MODULE "SEED"
9
C
10
COMMON/NUMCOM/NUMBER
11
LOGICAL FLAG
12
DATA FLAG/.FALSE./,NUMBER/0/
13
IF(FLAG)GOTO 10
14
FLAG=.TRUE.
15
IRND=132*(NUMBER+327)
16
10 IRND=MOD(IRND*1021,1048576)
17
RND=(LIMIT*IRND)/1048576
18
RETURN
19
END