File: CONT.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1
(Source file text)
SUBROUTINE CONT(IMP,R,T,IANZ,AVERAG,TO1,DELTA)) C SPECIFIC HEAT/CONT./CALCULATION DIMENSION X(10) DIMENSION IANZ(120) DIMENSION AVERAG(120) DIMENSION R(100) DIMENSION T(100) DIMENSION TEMP(100) WRITE(4,100) READ(4,110)M1 WRITE(4,120) READ(4,110) N1 WRITE(4,130) READ(4,110) IMAX CALL RFIT(IMAX,M1,N1,X) WRITE(4,150) DO 1000 I=1,IMP CALL KELVIN(IMAX,X,R(I),TEMP(I)) WRITE(4,170) R(I),TEMP(I) 1000 CONTINUE IH=0 WRITE(3,180) L= IMP-1 WRITE(4,180) DO 1100 I=1,L IH=IH+1 SLOPE=(TEMP(I)-TEMP(I+1))/(T(I)-T(I+1)) SL1=1./SLOPE TSTR=(TEMP(I)+TEMP(I+1))/2. WRITE(4,190) TSTR,SLOPE,SL1 CALL AV(IANZ,AVERAG,TO1,DELTA,TSTR,SL1) IF (IH-3) 1100,1200,1200 1200 IH=0 WRITE(3,190) TSTR,SLOPE,SL1 1100 CONTINUE 100 FORMAT(/1X,'ERSTES PUNKTEPAAR FUER T-FIT:',T60,$) 110 FORMAT(I3) 120 FORMAT(/1X,'LETZTES PUNKTEPAAR FUER T-FIT:',T60,$) 130 FORMAT(/1X,'ANZAHL TERME (T-FIT):',T60,$) 140 FORMAT(1X,I3) 150 FORMAT(1X,T31,'T(K)',T18,'R(KOHM)') 160 FORMAT(1X,F8.4,E16.5) 170 FORMAT(1X,F20.4,E20.5) 180 FORMAT(1X,' T(K) TEMP.DERIVATIVE TIME DERIV.') 190 FORMAT(1X,3E16.5) RETURN END