File: LIN.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1

(Source file text) 

---

C	TESTPROGRAMM
	DIMENSION C(100)
	DIMENSION TC(100)
	DO 10 I=1,100
	TC(I)=0.
10	C(I)=0.
	DO 20 I=1,10
	R=FLOAT(I)
	C(I)=4.*R+.1*R*R*R
	TC(I)=R
20	CONTINUE
	CALL LINREG(TC,C)
	STOP
	END

---