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

(Source file text) 

---

	DIMENSION ITABLE(17),INPUT(1000),IHGRAM(40),IFREQ(120)
	EQUIVALENCE (ITABLE(1),IS),(ITABLE(2),IW)

	DATA ITABLE/20,5,40,500,5*0,1,120,10000,5*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,IFREQ)
	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)
	TYPE 5000
 5000	FORMAT(///20X,'CORRESPONDING FREQUENCY HISTOGRAM'//,
     1	5('   ENTRY COUNT')/)
	I=ITABLE(13)
	IF(ITABLE(13).GT.ITABLE(11)) I=ITABLE(11)
	TYPE 7000,(N,IFREQ(N),N=1,I)
 7000	FORMAT(5(I8,I6))
	CALL EXIT
	END

---