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