File: RND.LS of Disk: V50/Source/Source-Listing-FORTRAN-2
(Source file text)
FORTRAN IV V50-A (A6) 24-JUL-20 0002 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 0003 COMMON/NUMCOM/NUMBER 0004 LOGICAL FLAG 0005 DATA FLAG/.FALSE./,NUMBER/0/ 0006 IF(FLAG)GOTO 10 0007 FLAG=.TRUE. 0010 IRND=132*(NUMBER+327) 0011 10 IRND=MOD(IRND*1021,1048576) 0012 RND=(LIMIT*IRND)/1048576 0013 RETURN 0014 END