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