C
C   EVAL    Tallies the frequencies of occurrence for each hash value
C           HASHES is an array of 1000 bytes, each a number from 0 to 66
C           FREQ is the frequency array of bytes, with subscripts to match 
C               assembly language subscripting
C           COUNT is the number of entries in HASHES
C
        SUBROUTINE EVAL (HASHES, COUNT, FREQ)
        INTEGER*1 HASHES(1000), FREQ(0:66)
        INTEGER COUNT
        INTEGER J
C
C   Initialize the array of freqeuncy counts
C
        DO 11 J = 0, 66
            FREQ(J) = 0
11      CONTINUE
C
C   Tally the hash values
C
        DO 13 J = 1, COUNT
            FREQ(HASHES(J)) = FREQ(HASHES(J)) + 1
13      CONTINUE
        RETURN
        END