File: STARRN.LS of Tape: V50/Source/Source-Listing-FORTRAN-1

(Source file text) 

---

        FORTRAN IV  5AAAA (A6)   9-APR-92             PAGE  ONE 

0002	      FUNCTION RAN(CONST,DIVIS)
	C
0003	      DATA SEED/1.2345678/,IFRST/0/
	C
0004	      IF (IFRST .NE. 0) GOTO 10
0005	        ANEXTN = SEED
0006	        IFRST = 1
0007	10    CONTINUE
0010	      CON = CONST+SEED
0011	      DIV = DIVIS+SEED
0012	      TEMP=CON*ANEXTN
0013	      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)
0014	      RAN = ANEXTN/DIV
	C
0015	      RETURN
0016	      END
	     

---