       SUBROUTINE PUT(TABLE,ISIZE,NSIZE)
C
C	WRITES OUT TABLE OF HITS AND MISSES
C
C	ISIZE=NUMBER OF ENTRIES (INORGANIC OR ORGANIC)
C	NSIZE=NUMBER OF *4 INTEGERS NECESSARY TO STORE THE TABLE
C	     =ISIZE/32, PROBABLY +1
C
C	MISS=0, HIT=1, EACH ENTRY HAS ONE BIT ASSOCIATED WITH IT
C
       INTEGER*4 TABLE(2000),NTABLE,MASK
       OPEN(UNIT=4,STATUS='NEW',FORM='UNFORMATTED',
     1   FILE='TABLE.TMP')
       WRITE(4) ISIZE,NSIZE,(TABLE(N),N=1,NSIZE)
       KOUNT=0
       DO 10 N=1,NSIZE
	NTABLE=TABLE(N)
       IF(NTABLE.EQ.0) GO TO 10
	DO 5 J=0,31
	MASK=IBITS(NTABLE,J,1)
	IF (MASK.EQ.1) KOUNT=KOUNT+1
5	CONTINUE
10      CONTINUE
       WRITE(6,100) KOUNT,ISIZE
100    FORMAT(' THERE ARE ',I6,' HITS, OUT OF A FILE OF',I6)
       CLOSE(4)
       RETURN
       END
