File: STARRN.FT of Disk: Disks/Working/Build-11-03-07

(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
     

---