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

---