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