File RND.FT (FORTRAN source file)
Directory of image this file is from
This file as a plain text file
INTEGER FUNCTION RND(LIMIT)
C
C GENERATES RANDOM INTEGER IN THE RANGE
C 0 < N < LIMIT
C
C USES THE RANDOM SEED GENERATED BY THE
C RALF MODULE "SEED"
C
COMMON/NUMCOM/NUMBER
LOGICAL FLAG
DATA FLAG/.FALSE./,NUMBER/0/
IF(FLAG)GOTO 10
FLAG=.TRUE.
IRND=132*(NUMBER+327)
10 IRND=MOD(IRND*1021,1048576)
RND=(LIMIT*IRND)/1048576
RETURN
END
Feel free to contact me, David Gesswein djg@pdp8online.com
with any questions, comments on the web site, or if you have related equipment,
documentation, software etc. you are willing to part with. I am
interested in anything PDP-8
related, computers, peripherals used with them, DEC or third party, or
documentation.
PDP-8 Home Page
 PDP-8 Site Map
 PDP-8 Site Search