File: TEST.FT of Tape: V50/Source/Source-Listing-FORTRAN-1

(Source file text) 

---

C	PROGRAM SIMULATES TV PROGRAM STAR TREK
	DOUBLE PRECISION DUMMY
	DOUBLE PRECISION PI 
	DATA PI/3.141592653589793/
	WRITE (4,1) PI
1	FORMAT (//,1X,'PI= ',D22.10)
	DUMMY=4*DATAN(1.0)
	WRITE (4,10) DUMMY
10	FORMAT(//,1X,'4*DATAN= ',D22.10)
	DUMMY = DUMMY/PI
	WRITE (4,11) DUMMY
11	FORMAT(//,1X,'RATIO= ',D22.10)
	DUMMY = 3.0
	SIGN = 1.0
	DO 20 I=2,1000000,2
	DUMMY = DUMMY + SIGN*4.0/(I*(I+1)*(I+2))
	SIGN = -SIGN
20	CONTINUE
	WRITE (4,12) DUMMY
12	FORMAT(//,1X,'SERIES= ',D22.10)
END

---