File: EX3HIS.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,11*0,1,0,120,0,0,10000,10*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
1 INPUT(I)=RAN(I1,I2)*210+15
CALL HISTI(ITABLD,INPUTD(N),IHGRAM,IFREQ)
IF(ITABLE(17).EQ.0) GO TO 2
TYPE 1000,ITABLE(17)
1000 FORMAT(' ERROR INDICATOR = ',I3)
STOP
2 CONTINUE
TYPE 2000
2000 FORMAT(24X,'RESULTING INTERVAL 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=11,15,2)
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(25)
IF(ITABLE(25).GT.ITABLE(21)) I=ITABLE(21)
TYPE 7000,(N,IFREQ(N),N=1,I)
7000 FORMAT(5(I8,I6))
CALL EXIT
END