;+
; Project     :	SOLAR-B - EIS
;
; Name        :	EIS_CPT_WINDOW_ENTRY
;
; Purpose     :	Returns line list table entry for data extraction window.
;
; Explanation :
;
; Use         :	< entry = eis_cpt_window_entry ( data_extraction_window ) >
;
; Inputs      :	data_extraction_window : STRUCTURE  of type EIS_data_extraction_window.
;
; Opt. Inputs : None.
;
; Outputs     : entry : UINTARR[3] linelist table entry for data extraction window
;
; Opt. Outputs:	None.
;
; Keywords    : None.
;
; Calls       : None.
;
; Common      :	None.
;
; Restrictions:	None.
;
; Side effects:	None.
;
; Category    :	EIS_CPT.
;
; Prev. Hist. :	None.
;
; Written     :	Martin Carter RAL 9/11/04
;
; Modified    :	Version 0.0, 9/11/04, MKC
;               Version 0.1, 11/04/05, MKC
;                 Corrected bits used for SW header.
;
; Version     :	Version 0.1, 11/04/05
;-
;**********************************************************

FUNCTION eis_cpt_window_entry, data_extraction_window

  ; set up window header

  header = data_extraction_window.node

  IF data_extraction_window.EIS_AEC_line_flag   THEN header = header OR '0010'XU

  IF data_extraction_window.EIS_event_line_flag THEN header = header OR '0008'XU

  IF data_extraction_window.EIS_flare_line_flag THEN header = header OR '0004'XU

  ; set up window entry in linelist table

  entry = [header, UINT(data_extraction_window.xstart), UINT(data_extraction_window.xsize)]

  ; return

  RETURN, entry

END