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

(Source file text) 

---

	SUBROUTINE AV(IANZ,AVERAG,TO1,DELTA,TEM,SL1)
	DIMENSION IANZ(100)
	DIMENSION AVERAG(100)

	K=1
10	TL=TO1+FLOAT(K)*DELTA
	TU=TO1+FLOAT(K+1)*DELTA
	IF (TEM-TL) 20,3,3
3	IF (TEM-TU) 4,5,5
4	AVERAG(K) = SL1+AVERAG(K)
	IANZ(K)=IANZ(K)+1
	GOTO 7
5	K=K+1
	IF(K-99) 10,10,20
20	WRITE(4,120)TEM
	GOTO 7
120	FORMAT(/1X,'KEIN PLATZ BEI T=',E16.6)
7	RETURN
	END

---