File: FPPT.FT of Tape: V50/Source/Source-Listing-FORTRAN-1
(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