File: FPPT.FT of Disk: V50/Multi8/Multi-Test1

(Source file text) 

---

C       PROGRAM SIMULATES TV PROGRAM STAR TREK
        DOUBLE PRECISION DUMMY
	WRITE (4,1)
1       FORMAT (////,1X,'TEST FPP')
        DUMMY=0
        DO 9 I=1,100000
        DUMMY=DUMMY+DLOG(DBLE(I))
9       CONTINUE
        WRITE (4,10) DUMMY
10      FORMAT(////,1X,'RESULT: ',D23.12)
        END

---