File: STARRN.FT of Tape: V50/Source/Source-Listing-FORTRAN-1
(Source file text)
FUNCTION RAN(CONST,DIVIS) C DATA SEED/1.2345678/,IFRST/0/ C IF (IFRST .NE. 0) GOTO 10 ANEXTN = SEED IFRST = 1 10 CONTINUE CON = CONST+SEED DIV = DIVIS+SEED TEMP=CON*ANEXTN ANEXTN = AMOD(TEMP,DIV) C WRITE(4,20) ANEXTN,CON,TEMP,DIV C20 FORMAT(1X,'NEXT=',F10.3,'CNST=',F10.3,'TMP=',F10.3,'DIV=',F10.3) RAN = ANEXTN/DIV C RETURN END