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

---