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

(Source file text) 

---

2
C	PROGRAMM FUER THERMOMETERFIT
	DIMENSION A(10)
	LOGICAL GOON
199	WRITE(4,200)
200	FORMAT(/1X,'FIT GEWUENSCHT? (T/F)',T70,$)
	READ(4,210) GOON
210	FORMAT(L1)
	IF (.NOT.GOON) GOTO 99
	WRITE(4,100)
100	FORMAT(2X,' ANZAHL TERME IN DER REIHE',T70,$)
	READ(4,110) IM
110	FORMAT(I2)
	WRITE(4,120)
120	FORMAT(/1X,'ERSTES WERTEPAAR (NR)',T70,$)
	READ(4,110) I1
	WRITE(4,140)
140	FORMAT(/1X,'LETZTES PUNKTEPAAR (NR)',T70,$)
	READ(4,110) I2
	ISP= I2
	CALL RFIT(IM,I1,I2,A)

	WRITE(4,150)
	READ(4,210) GOON
	IF(.NOT.GOON) GOTO 197
	WRITE(4,360)
	READ(4,110) IGER
	WRITE(IGER,280)
	WRITE(IGER,290)
	REWIND 5
198	READ(5,160) IEND,T,R
	IF(IEND-ISP) 189,197,197
189	CALL KELVIN(IM,A,R,TEMP)
	DELTEM=T/TEMP-1.
	WRITE(IGER,170) R,T,TEMP,DELTEM
	GOTO 198
197	WRITE(4,330)
	READ(4,210) GOON
	IF(.NOT.GOON) GOTO 195
	WRITE(4,340)
	READ(4,240) RO
	CALL KELVIN(IM,A,RO,TEMP)
	WRITE(4,350) RO,TEMP
	GOTO 197
195	WRITE(4,180)
	READ(4,210) GOON
	IF(.NOT.GOON) GOTO 199
	WRITE(4,360)
	READ(4,110) IGER
	WRITE(4,230)
	READ(4,240) RO
	WRITE(4,250)
	READ(4,240) RD
	WRITE(4,260)
	READ(4,240) RE
	WRITE(IGER,270)
196	CALL KELVIN(IM,A,RO,TEMP)
	WRITE(IGER,281) RO,TEMP
	IF(RO-RE) 199,199,193
193	RO=RO-RD
	GOTO 196

150	FORMAT(/1X,'VERGLEICH GEWUENSCHT?(T/F)',T60,$)
160	FORMAT(1X,I5,2E16.9)
170	FORMAT(1X,4F12.6)
180	FORMAT(//,1X,'TABELLE GEWUENSCHT ?(T/F):',T60,$)
230	FORMAT(/1X,'ANFANGSWERT VON R?(TIEFSTE TEMP)   R =',T60,$)
240	FORMAT(E16.8)
250	FORMAT(/1X,'SCHRITTWEITE IN R? DELTA-R =',T60,$)
260	FORMAT(/1X,'ENDWERT IN R ? R =',T60,$)
270	FORMAT(//,'           R(KOHM)           T(K)',//)
280	FORMAT(//,' VERGLEICH: T - T(FIT)')
281	FORMAT(1X,2F16.4)
290	FORMAT(/,'   R(KOHM)      T(K)        T(FIT)     T/T(FIT)-1.',/)
330	FORMAT(/1X,'R - T BERECHNUNG ?(T/F)',T60,$)
340	FORMAT(/1X,'R = ?',T60,$)
350	FORMAT(1X,'R = ',F13.5,'  T = ',F13.5)
360	FORMAT(/1X,'AUSGABEGERAET: 3= LPT,4= VISUAL 200',T60,$)
99	STOP
	END

---