	SUBROUTINE SEEMAP (IELMAP,INUM)
C SET THE BIT IN THE MAP
C
C	IELMAP		ELEMENT BIT MAP (6 WORDS)
C	INUM		ELEMENT # TO BE SET, THE # CORRESPONDS TO THE
C			ELEMENT LIST IN THE SEENUM ROUTINE
C
C	CALLED BY:	SEELEM
C	CALLS:		NONE
C
	INCLUDE 'SEARCH.INC'
	DIMENSION IELMAP(1)
	ILOC = (INUM-1)/16 + 1			!ARRAY LOCATION
	IBIT = INUM - (ILOC-1)*16		!BIT TO BE SET
	IELMAP(ILOC) = IELMAP(ILOC) .OR. IBITS(IBIT)	!SET THE BIT
	RETURN
	END
