	FUNCTION SEBCNT (IBUF,ILEN)
C COUNT THE NUMBER OF BITS IN IBUF
C
C	IBUF		ARRAY WITH BITS SET
C	ILEN		# WORDS IN IBUF
C
C	CALLED BY:	SEINDX
C	CALLS:		NONE
C
	INCLUDE 'SEARCH.INC'
	INTEGER*2 SEBCNT
	DIMENSION IBUF(ILEN)
	IC = 0			!BIT COUNTER
	DO 100 I=1,ILEN
	  IF (IBUF(I) .NE. 0) THEN
	    DO 50 J=1,16
50	    IF ((IBUF(I).AND.IBITS(J)) .NE. 0) IC = IC + 1
	  END IF
100	  CONTINUE
	SEBCNT = IC
	RETURN
	END
