File: FORT4.FT of Disk: Disks/PDP8-Net/haygood-osv3r

(Source file text) 

---

	DOUBLE PRECISION PI, PIOV2
	PI = 3.14159265358979323846D0
	PIOV2 = PI / 2.0
	WRITE (4,200)PI
	WRITE (4,200)PIOV2
200	FORMAT (1H1,B17.15)
	STOP
	END

---