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

(Source file text) 

---

       COMMON  JSEED,IFRST,NEXTN
       DATA JSEED/123.45678/,IFRST/0/
       DO 20 I=1,100
       RANDOM = RAN(103,21)
       WRITE(4,30) RANDOM
20     CONTINUE
30     FORMAT(F8.3,/)
       END

---