File: INTERP.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1

(Source file text) 

---

C	INTERPOLATIONSPROGRAMM

	LOGICAL GOON
	DIMENSION XK(20)
	DIMENSION F(20)
	I=0

10	I=I+1
	WRITE(4,100)
	READ(4,110) GOON
	IF (.NOT.GOON) GOTO 11
	WRITE(4,120)
	READ(4,130) XK(I)
	WRITE(4,140)
	READ(4,130) F(I)
	GOTO 10
11	N=I-1
12	WRITE(4,150)
	READ(4,130) X
	CALL POWER(N,X,XK,F,P)
	WRITE(4,160) X,P
	WRITE(4,170)
	READ(4,110) GOON
	IF(GOON) GOTO 12
100	FORMAT(/1X,' STUETZSTELLE? (T/F):',T60,$)
110	FORMAT(L1)
120	FORMAT(/1X,'x(k) =',T60,$)
130	FORMAT(E16.6)
140	FORMAT(/1X,'F(K) =',T60,$)
150	FORMAT(/1X,'AUSWERTUNG AN DER STELLE X=',T60,$)
160	FORMAT(/1X,'X = ',E16.6,'F(X) = ',E16.6)
170	FORMAT(/1X,'WEITERE AUSWERTUNG ?(T/F)',T60,$)
	STOP
	END

---