;+
;PROJECT:
;           Solar-B EIS
;
;NAME:      
;           eis_overlapping_windows
;
;PURPOSE:
;           Function to test whether any windows overlap. This is done for
;           each CCD separately. 
;
;INPUTS:
;           ll       - an eis_line_list structure
;OUPUTS:
;           ll       - an eis_line_list structure
;CATEGORY:
;           EIS Technical Planning - eis_mk_raster
;
;MODIFICATION HISTORY:
;           V0. Written by: John Rainnie, RAL
;               j.rainnie@rl.ac.uk (Feb 2006)
;
;-
;************************************************************************
FUNCTION eis_overlapping_windows , ll

ll.lines[*].over = 0

; Split windows up into CCD 1 & CCD2; eg: 1, 1, 2 for core lines
ccd_indicies = ll.lines[0:ll.nLines-1].ccd
; Get lineList indicies of CCD1 & CCD2 windows
ccd_1        = WHERE(ccd_indicies EQ 1 , COMPLEMENT = ccd_2)

; OK, we're going to do this twice, once for CCD 1 and again for CCD2
; In each case, ensure we have at least 1 window 
;
; CCD 1
;
IF (N_ELEMENTS(ccd_1) GT 0) THEN BEGIN

    FOR i = 1 , N_ELEMENTS(ccd_1) - 1 DO BEGIN

        ll.lines[ccd_1[i]].over =                                           $
                (ll.lines[ccd_1[i]].p1 LE ll.lines[ccd_1[i-1]].p2) ? 1 : 0

    ENDFOR

ENDIF

;
; CCD 2
;
IF (N_ELEMENTS(ccd_2) GT 0) THEN BEGIN

    FOR i = 1 , N_ELEMENTS(ccd_2) - 1 DO BEGIN

        ll.lines[ccd_2[i]].over =                                           $
                (ll.lines[ccd_2[i]].p1 LE ll.lines[ccd_2[i-1]].p2) ? 1 : 0

    ENDFOR

ENDIF

RETURN , ll

END