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

(Source file text) 

---

	DIMENSION ITABLE(34),INPUT(2000),IHGRAM(40),IFREQ(120)
	INTEGER*4 ITABLD(17),INPUTD(1000)
	EQUIVALENCE (ITABLE(2),IS),(ITABLE(4),IW),(ITABLE,ITABLD),
     1		    (INPUT,INPUTD)

	DATA ITABLE/0,20,0,5,40,0,500,15*0,1,0,120,9*0/
	DATA INPUT/2000*0/
	DATA I1,I2/0,0/

	DO 2 J=2,21

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

	DO 1 I=N*2,(N+499)*2,2
    	K=RAN(I1,I2)*210+15
	M=K/80
	IF(M*80.EQ.K) K=0
    1	INPUT(I)=K

	CALL RHISTI(ITABLD,INPUTD(N),IHGRAM,IFREQ)
	IF(ITABLE(21).EQ.0) GO TO 2
	TYPE 1000,ITABLE(21)
 1000	FORMAT(' ERROR INDICATOR = ',I3)
	STOP

    2	CONTINUE

	TYPE 2000
 2000	FORMAT(28X,'RESULTING HISTOGRAM'//,
     1	4('    INTERVAL',6X),/,4('     X 2**16 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=13,19,2)
 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(27)
	IF(ITABLE(27).GT.ITABLE(25)) I=ITABLE(25)
	TYPE 7000,(N,IFREQ(N),N=1,I)
 7000	FORMAT(5(I8,I6))
     	CALL EXIT
	END

---