File: THFIT.FT of Disk: Disks/MyPDP/m8-backup-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