File: EX1HIS.FT of Tape: Various/ETH/eth11-3

(Source file text) 

---

	DIMENSION ITABLE(10),INPUT(1000),IHGRAM(40)
	EQUIVALENCE (ITABLE(1),IS),(ITABLE(2),IW)

	DATA ITABLE/20,5,40,500,6*0/
	DATA I1,I2/0,0/

	DO 2 J=2,21

	N=500*MOD(J,2)+1

	DO 1 I=N,N+499
    1	INPUT(I)=RAN(I1,I2)*210+15

	CALL HISTI(ITABLE,INPUT(N),IHGRAM)
	IF(ITABLE(9).EQ.0) GO TO 2
	TYPE 1000,ITABLE(9)
 1000	FORMAT(' ERROR INDICATOR = ',I3)
	STOP

    2	CONTINUE

	TYPE 2000
 2000	FORMAT(24X,'RESULTING INTERVAL 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=6,8)
 4000	FORMAT(//,' UNDERFLOW COUNT = ',I3,/,' OVERFLOW COUNT = ',I3,/,
     1	' NO. OF COUNTERS WHICH OVERFLOWED = ',I2,//)
	CALL EXIT
	END

---