       SUBROUTINE GET(TABLE,ISIZE,NSIZE)
C
C	READS IN A 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
       CHARACTER*1 KEY
       OPEN(UNIT=4,STATUS='OLD',FORM='UNFORMATTED',
     1   FILE='TABLE.TMP',READONLY,SHARED,ERR=999)
       READ(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,' POSSIBLITIES, OUT OF A'
     1     ,1X,'FILE OF',I6)
       CLOSE(4)
       RETURN
999    WRITE(6,998)
998    FORMAT(' THERE IS A VERY SERIOUS ERROR IN THE FILE OPEN.'/
     1 10X,'PLEASE BE SURE THAT YOU HAVE RUN THE "CREATE" STEP.'/
     2 10X,'THE LOGIC FILE MUST BE PRESENT BEFORE ANY SEARCHING'
     3 ,1X,'IS DONE')
       STOP' JOB ABORTED--START AGAIN'
       END
