File: EX1RHI.FT of Tape: Various/ETH/eth11-3
(Source file text)
DIMENSION ITABLE(17),INPUT(1000),IHGRAM(40) EQUIVALENCE (ITABLE(1),IS),(ITABLE(2),IW) DATA ITABLE/20,5,40,500,13*0/ DATA I1,I2/0,0/ DO 2 J=2,21 N=500*MOD(J,2)+1 DO 1 I=N,N+499 K=RAN(I1,I2)*210+15 M=K/80 IF(M*80.EQ.K) K=0 1 INPUT(I)=K CALL RHISTI(ITABLE,INPUT(N),IHGRAM) IF(ITABLE(11).EQ.0) GO TO 2 TYPE 1000,ITABLE(11) 1000 FORMAT(' ERROR INDICATOR = ',I3) STOP 2 CONTINUE TYPE 2000 2000 FORMAT(28X,'RESULTING HISTOGRAM'//, 1 4(' INTERVAL COUNT')/) TYPE 3000,((N-1)*IW+IS,N*IW+IS,IHGRAM(N),N=1,40) 3000 FORMAT(4(I7,'-',I4,I6)) TYPE 4000,(ITABLE(I),I=7,10) 4000 FORMAT(//,' NO. OF REFERENCE POINTS = ',I3,/, 1 ' UNDERFLOW COUNT = ',I3,/,' OVERFLOW COUNT = ',I3,/, 2 ' NO. OF COUNTERS WHICH OVERFLOWED = ',I2,//) CALL EXIT END