	SUBROUTINE SELGHT (LFULL)
C SEARCH LIGHT ELEMENTS ONLY
C THIS SEARCH DIFFERS FROM THE REGULAR SEARCH SINCE NO ELEMENT HITS
C ARE REQUIRED BEFORE TESTING THE RSPACES.  NOTE THAT IN SERSRC THE
C EXCLUDED ELEMENTS, REQUIRED ELEMENTS, AND FLAGS ARE STILL TESTED. 
C
C	LFULL		FLAG SET TRUE IF OUTPUT FILE IS FULL
C
C	CALLED BY:	FSRCH
C	CALLS:		SERSRC
C
	INCLUDE 'SEARCH.INC'
C IF NOT TO LIGHT ELEMENTS YET, SET BLOCK FOR LIGHT ELEMENTS
	NEHITS = 0		!NO ELEMENT HITS ARE REQUIRED
	IB = IBLOCK
	IF (IBLOCK .LT. IBLGHT) IB = IBLGHT
C SEARCH ALL THE REMAINING LIGHT ELEMENT RECORDS
	IF (IBLOCK .LE. IRLAST) THEN
	  DO 100 IBLOCK=IB,IRLAST,2
	  CALL SERSRC (LFULL)		!TEST RSPACES
	  IF (LFULL) RETURN
100	  CONTINUE
	END IF
	RETURN
	END
