File: CONT.FT of Disk: Disks/MyPDP/m8-2-rka1-rkb1

(Source file text) 

---

	SUBROUTINE CONT(IMP,R,T,IANZ,AVERAG,TO1,DELTA))

C	SPECIFIC HEAT/CONT./CALCULATION

	DIMENSION X(10)
	DIMENSION IANZ(100)
	DIMENSION AVERAG(100)
	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

C	WRITE(3,180)
	L= IMP-1
	WRITE(4,180)
	DO 1100  I=1,L
	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)
C	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

---