;======================================================================
;
; File:
;	search_catalog_1.3.pro
;
; Purpose:
;       Search on the UVCS data and events catalog tables
;       located in ../TABLES
;       Display FITS files matching the queries, the details
;       of the observations and the events and the related
;       mission log file
;       Save and Print the results.
;
; Included Routines:
; 	UVCS_SEARCH_MAIN		Main search window
; 	   UVCS_SEARCH_MAIN_EVENT
; 	UVCS_READ_TABLE_A		Read ascii table A
; 	UVCS_READ_TABLE_B		Read ascii table B
; 	UVCS_SEL_CATALOG		Select catalog file (one or more year)
; 	UVCS_SEARCH_DATA
; 	UVCS_SEL_DATA
; 	UVCS_CONV_DATETIME_TAI
; 	UVCS_CONV_TAI_DATETIME
; 	UVCS_SHOW_RESULTS
; 	UVCS_PRINT_RESULTS
; 	UVCS_SAVE_RESULTS
; 	UVCS_SHOW_DETAILS
;	   UVCS_SHOW_DETAILS_EVENT
;	UVCS_SEARCH_EVE
;       UVCS_READ_EVE_CAT
;       UVCS_SHOW_EVE_DETAILS
;          UVCS_SHOW_EVE_DETAILS_EVENT
;       UVCS_GET_CORE_FITS
;       UVCS_READ_MENU_VALUES
;       PROGRESS_BAR_SG
;       CW_DROPLIST2_SELECT
;       CW_DROPLIST2_MAKE
;       CW_DROPLIST2_SET_VALUE
;       DIR_EXIST
;
; Included functions
;       CW_DROPLIST2_GET_VALUE
;       CW_DROPLIST2_EVENT
;       CW_DROPLIST2
;       APPROX_CAT
;
;
; Modification History:
; Oct 15 2003
; Oct 31 2003 Link, search and display for CMEs and Comets Catalogs
;	      link to the mission log
;             v0.5
; Nov 05 2003 Bug related to cnt removed
;	      In the catalog population, search and display
;	      the following fields have been added:
;			spa_r    = spatial resolution
;			cmp      = campaign number
;		    	object   = object  ?? DAS33 new keywords
;		    	results  = results ?? DAS33 new keywords
;			observer = lead observer
;             v0.6
; Nov 06 2003 Read two tables, the second one contains:
;             file,object,results,observer,obs_mode,sci_obj
;             v0.7
; Nov 13 2003 Restyling and release
;             v0.8
; Mar 11 2004 the wavelength range selection takes into account the
;             second order lines (UVCS_SEARCH_DATA procedure)
; Mar 22 2004 DIR_EXIST included in this file
;             v0.9
; May 20 2004 read the most recent version of CME and Comets Catalogs 
;	      and read them (UVCS_READ_EVE_CAT)
; 	      change Offset and Filter default search (UVCS_SEARCH_MAIN)
;             v0.9.1
; Oct 05 2004 inclusive search refinement (UVCS_SEARCH_DATA)
;             v1.0
; Jul 05 2005 menu for year selection
;             v1.1
; Oct 12 2005 +offset insted of -offset in UVCS_SHOW_DETAILS procedure
;             v1.2
; Jun 05 2006 menu for year selection extended to 2006 and 2007
;             v1.3
;
; Author:
;	Silvio Giordano
;======================================================================
;
;----------------------------------------------------------------------
;
; NAME:
;       CW_DROPLIST2
; PURPOSE:
;       A pop up list from which to select an item.
; CATEGORY:
; CALLING SEQUENCE:
;       wid = cw_droplist2( parent)
; INPUTS:
;       parent = Widget ID of parent widget.   in
; KEYWORD PARAMETERS:
;       Keywords:
;         VALUE=list  Given text array with list of items.
;         NUM=num  Number to display before breaking list (def=15).
;         UVALUE=uval  User value that may be set.
;         /UPDATE means update button with selected item.
;            Otherwise button not updated except using
;            cw_droplist2_select, id, indx
; OUTPUTS:
;       wid = Widget ID of opo up list.        out
; COMMON BLOCKS:
; NOTES:
;       Note: You can set a new droplist using
;         widget_control, id, set_value=list
;         and get the current list using
;         widget_control, id, get_value=list
;         but to set the value displayed on the button you must do
;         cw_droplist2_select, id, indx
;         where indx is the index in the list to display.
;         Use /UPDATE to avoid this extra call.
; MODIFICATION HISTORY:
;       R. Sterner, 2001 Dec 07
;       S. Giordano, 2003 Nov 05
;----------------------------------------------------------------------
;
;----------------------------------------------------------------------
;	Select displayed item for cw_droplist2.
;----------------------------------------------------------------------
pro CW_DROPLIST2_SELECT, id, indx
;
chld = widget_info(id, /child)		; First child widget.
widget_control, chld, get_uval=s	; Grab state info from child.
;
value = *s.p_value
mx = n_elements(value)-1
widget_control, chld, set_value=value(indx<mx)	; Set new button label.
;
end
;
;----------------------------------------------------------------------
;	Set up cascading droplist.
;----------------------------------------------------------------------
pro CW_DROPLIST2_MAKE, base, value, num, dynamic_resize=dyn, bb0=bb0
;
;------  Destroy any existing droplist  -----------
chld = widget_info(base,/child)
if chld ne 0 then begin
  widget_control, chld, get_uval=s
  ptr_free, s.p_value			; Free ptr to old values.
  s.p_value = ptr_new(value)		; Ptr to new value list.
  widget_control, chld, /destroy
endif
;
if n_elements(num) eq 0 then num=s.num
;
;------  Loop through all list values  ----------
bb = base				; Parent of first button.
for i=0, n_elements(value)-1 do begin
  if (i mod num) eq 0 then begin		; Handle list breaks.
    if i eq 0 then txt=value(0) else txt='More'	; Handle first button.
    ;bb = widget_button(bb,value=txt, menu=2, dynamic=dyn) ; List break.
    ; List break. SG
    bb = widget_button(bb,value=txt, menu=2,XSIZE=100,/dynamic_resize)
    if i eq 0 then bb0=bb			; Save top button.
  endif
  id = widget_button(bb,val=value(i),uval=i, dynamic=dyn)  ; List item.
endfor
;
;-----  If there was a uval update it  ----------------
if n_elements(s) ne 0 then widget_control, bb0, set_uval=s
;
end
;
;----------------------------------------------------------------------
;	Get value for CW_DROPLIST2.
;----------------------------------------------------------------------
function CW_DROPLIST2_GET_VALUE, id
;
chld = widget_info(id, /child)		; First child widget.
widget_control, chld, get_uval=s	; Grab state info from child.
;
return, *s.p_value			; Return list.
end
;
;----------------------------------------------------------------------
;	Set value routine for CW_DROPLIST2.
;----------------------------------------------------------------------
pro CW_DROPLIST2_SET_VALUE, id, val
;
CW_DROPLIST2_MAKE, id, val, dynamic_resize=dyn, bb0=bb0
;
chld = widget_info(id, /child)		; First child widget.
widget_control, chld, get_uval=s	; Grab state info from child.
;
ptr_free, s.p_value
s.p_value = ptr_new(val)
widget_control, bb0, set_uvalue=s	; Set new button label.
;
end
;
;----------------------------------------------------------------------
;	Event handler for CW_DROPLIST2.
;----------------------------------------------------------------------
function CW_DROPLIST2_EVENT, ev
;
;-------  Get info needed to display list  -------------
base = ev.handler			; Top base for this widget.
chld = widget_info(base, /child)	; First child widget.
widget_control, chld, get_uval=s	; Grab state info from child.
value = *s.p_value			; Extract list.
bb0 = s.bb0				; Main button ID.
update = s.update			; Update flag.
widget_control, ev.id, get_uval=in	; List item index.
out = value(in)				; List item.
;
;-------  Update button  -------------
if update then widget_control, bb0, set_val=out
;
;-------  Return result through an event structure  --------
ret = { CW_DROPLIST2, ID:base, TOP:ev.top, HANDLER:0L, $
  INDEX:in, ITEM:out}			; Return an event.
;
return, ret
end
;
;----------------------------------------------------------------------
;	cw_droplist2.pro = Like widget_droplist but with larger capacity
;	R. Sterner, 2001 Dec 07
;----------------------------------------------------------------------
function CW_DROPLIST2, parent, value=value, uvalue=uvalue, $
       list=list, update=update, num=num, dynamic_resize=dyn, help=hlp
;
if (n_params(0) lt 1) or keyword_set(hlp) then begin
        print,' A pop up list from which to select an item.'
        print,' wid = cw_droplist2( parent)'
        print,'   parent = Widget ID of parent widget.   in'
        print,'   wid = Widget ID of opo up list.        out'
        print,' Keywords:'
        print,'   VALUE=list  Given text array with list of items.'
        print,'   NUM=num  Number to display before breaking list (def=15).'
        print,'   UVALUE=uval  User value that may be set.'
        print,'   /UPDATE means update button with selected item.'
        print,'      Otherwise button not updated except using'
        print,'      cw_droplist2_select, id, indx'
        print,' Note: You can set a new droplist using'
        print,'   widget_control, id, set_value=list'
        print,'   and get the current list using'
        print,'   widget_control, id, get_value=list'
        print,'   but to set the value displayed on the button you must do'
        print,'   cw_droplist2_select, id, indx'
        print,'   where indx is the index in the list to display.'
        print,'   Use /UPDATE to avoid this extra call.'
        return, ''
endif
;
;-------  Defaults  ----------------------
if n_elements(num) eq 0 then num=15	  ; Number in list before break.
if n_elements(uvalue) eq 0 then uvalue=0  ; User value.
if n_elements(value) eq 0 then value=' '  ; Initial button label.
if n_elements(update) eq 0 then update=0  ; Update flag.
;
on_error, 2		; Return to caller on any error.
;
;-------  Top base for compound widget  ----------
base = widget_base(parent, uvalue=uvalue,  $
  event_func='cw_droplist2_event',         $
  func_get_value='cw_droplist2_get_value', $
  pro_set_val='cw_droplist2_set_value')
;
;------  Loop through all list values  ----------
CW_DROPLIST2_MAKE, base, value, num, dynamic_resize=dyn, bb0=bb0
;
;------  Pack up info and store in first child  ---------
info = {p_value:ptr_new(value), bb0:bb0, update:update, num:num}
chld = widget_info(base, /child)
widget_control, chld, set_uval=info
;
return, base
end
;
;
; ==============================================================================
; NAME:
;       APPROX_CAT
;
; PURPOSE:
;       Approx number, vector and array
;
; AUTHOR:
;	Silvio Giordano
; ==============================================================================
Function APPROX_CAT,numero,decimali,STRG=STR
;
res=STRCOMPRESS(numero,/rem)
;
q=where(res eq 'NaN',cnt)
if cnt ne 0 then begin
   if STR ne 'YES' then res=FLOAT(res)
   RETURN,res
endif
;
pos_dot=STRPOS(res,'.') & pos_e=STRPOS(res,'e')
;
if pos_e(0) ne -1 then begin
   ;APPROX on Exponential Number '
   esp=FIX(ALOG10(numero))
   num=numero/(10.^esp)
   if esp lt 0 then decimali=decimali+1
   decim=FLOAT(decimali)
   res_num=STRCOMPRESS(ROUND(num*10.^(decim))/10.^(decim),/rem)
   pos_dot=STRPOS(res_num,'.')
   res_num=STRMID(res_num,0,pos_dot+decim+1)
   res=res_num*10.^(esp)
   ; string output for plot
   if STR eq 'YES' then begin
      if esp lt 0 then begin
         esp=esp-1
         res_num=STRCOMPRESS(res_num*10.,/rem)
         res_num=STRMID(res_num,0,pos_dot+decim)
      endif
      res=STRCOMPRESS(res_num,/rem)+'!9X!3!N10!E'+STRCOMPRESS(esp,/rem)+'!N'
   endif
   RETURN,res
endif
;
;APPROX on Floating Number'
decimali=FLOAT(decimali)
res=STRCOMPRESS(ROUND(numero*10.^(decimali))/10.^(decimali),/rem)
pos_dot=STRPOS(res,'.')
;
if decimali lt 0 then decimali=0
;
for i=0,N_ELEMENTS(numero)-1 do begin
   if decimali eq 0 then res(i)=STRMID(res(i),0,pos_dot(i)+decimali) $
 		    else res(i)=STRMID(res(i),0,pos_dot(i)+decimali+1)
endfor
;
if STR ne 'YES' then if decimali eq 0 then res=FIX(res) else res=FLOAT(res)
;
RETURN,res
end
;
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SEARCH_MAIN
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 21 02
; May 14 02
; Nov 21 02 if on operatin system for main window size
; Sep 29 03 previous if removed and main window resized: TBV on
;           different operating systems and display size
; see this file header
; May 20 04 change Offset and Filter default search (Both)
;-----------------------------------------------------------------------
pro UVCS_SEARCH_MAIN
;
common wcatal,wd_year,wyear,years_values,wda_from,wda_to,wtm_from,wtm_to,   $
            wpa_from,wpa_to,wcmd_from,wcmd_to,wmir_from,wmir_to,            $
            wslt_from,wslt_to,wexpt_from,wexpt_to,wtres_from,wtres_to,      $
            wwav_from,wwav_to,wwdl_from,wwdl_to,wline1,wline2,wline3,wline4,$
            woff,wobsn_from,wobsn_to,wgrt_from,wgrt_to,wmpos_from,      $
	    wmpos_to,wflt,wchn,wsrc_prm,wsrc_res,wnfits,wnrec,clear,    $
	    save,prt_res,det_res,wmlog,weve_det,wevents,                $
	    wspa_from,wspa_to,wcmpn,wd_obj,wd_res33,wd_observer,        $
	    obj_values,res33_values,obs_values,wd_om,wd_sc,om_values,   $
            sc_values,wcmd_incl,wmir_incl,wslt_incl,wgrt_incl
;
common search_prm,year,da_from,da_to,tm_from,tm_to,pa_from,pa_to,      $
            cmd_from,cmd_to,mir_from,mir_to,slt_from,slt_to,expt_from, $
            expt_to,tres_from,tres_to,wav_from,wav_to,wdl_from,wdl_to, $
	    line1,line2,line3,line4,off,obsn_from,obsn_to,             $
	    grt_from,grt_to,mpos_from,mpos_to,flt,chn,eve,             $
	    spa_from,spa_to,cmpn,obj,res33,observer,obs_mode,sci_obj,  $
            cmd_incl,mir_incl,slt_incl,grt_incl
;
common table,dfile,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,    $
             mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos, $
             tai_xobs,delta_t,exptot,wrange,wdelta,               $
             spa_res,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,k_sci_obj
;
common results,fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,        $
               miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS,$
               tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,                $
               spa_resS,n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,     $
               k_sci_objS,txt_prm,txt_res
;
common details,sfile,efile
;
common das_prnt_conf,prnt_conf_exp,das_font
;
spawn, 'uname',os
if os(0) eq 'Linux' then device,decompose=0
;
;cat_font='Helvetica*12'
cat_font=''
Widget_Control, Default_Font=cat_font
;
; define variables for search parameters
;
year='1996'
da_from=0    &  da_to=0
tm_from=0    &  tm_to=0
pa_from=0    &  pa_to=0
cmd_from=0.  &  cmd_to=0.
mir_from=0.  &  mir_to=0.
slt_from=0   &  slt_to=0
expt_from=0  &  expt_to=0
tres_from=0  &  tres_to=0
wav_from=0.  &  wav_to=0.
wdl_from=0   &  wdl_to=0
line1=INTARR(4)  &  line2=INTARR(4)  & line3=INTARR(4) & line4= INTARR(4)
obsn_from=0  &  obsn_to=0
grt_from=0   &  grt_to=0
mpos_from=0  &  mpos_to=0
off=0        &  flt=1        &  chn=2
eve='All'
spa_from=0   & spa_to=0
cmpn=0
obj=''  &  res33=''  &  observer=''
obs_mode=''  & sci_obj=''
cmd_incl= 0 & mir_incl=0 & slt_incl=0 & grt_incl=0
;
; Build main Widget
;
spawn,'hostname',hostname
if hostname(0) eq 'maloca' then begin
   xss=710
   yss=850
   ysize_cwb=18
endif else begin
   xss=710
   yss=600
   ysize_cwb=20
endelse
main=WIDGET_BASE(title='UVCS Data Catalog 1.3',xoffset=50,yoffset=50,/row, $
x_scroll_size=xss,y_scroll_size=yss)
;
; Build search widget
;
base=WIDGET_BASE(main,/column)
;
base0=WIDGET_BASE(base,/row)
text=WIDGET_LABEL(base0,value='Select Search Parameters',xoffset=200,FONT='8x13bold')
tmp=WIDGET_LABEL(base0,value='',xsize=30)
search=WIDGET_BUTTON(base0,value='SEARCH',uvalue='SEARCH',/align_center, $
xsize=70,ysize=25,resource_name='green')
tmp=WIDGET_LABEL(base0,value='',xsize=10)
quit=WIDGET_BUTTON(base0,value='QUIT',uvalue='QUIT',/align_center, $
xsize=70,ysize=25,resource_name='red')
;
;base00=WIDGET_BASE(base)
;wyear = CW_BGROUP(base00,['All','1996','1997','1998','1999','2000','2001'], $
;label_left = 'Year ',set_value=[0,1,0,0,0,0,0],/nonexclusive,ysize=ysize_cwb,/row)
;
;base0=WIDGET_BASE(base,/row)
;UVCS_READ_MENU_VALUES,'results',res33_values
;wlab=WIDGET_LABEL(base0,value='Result',xsize=160,resource_name='white')
;wd_res33=CW_DROPLIST2(base0,VALUE=res33_values,NUM=num,/UPDATE)


base00=WIDGET_BASE(base,/row)
years_values=['1996','1997','1998','1999','2000','2001','2002','2003','2004','2005','2006','2007','All']
wlab=WIDGET_LABEL(base00,value='Year',xsize=100,resource_name='white')
wd_year=CW_DROPLIST2(base00,VALUE=years_values,NUM=11,/UPDATE)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Date  (yyyymmdd)',xsize=160,resource_name='gold')
wda_from=CW_FIELD(base0,title='from:',value='0',xsize=10,/row,/long,/all_events)
wda_to=CW_FIELD(base0,title='to:',value='0',xsize=10,/row,/long,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Time  (hhmm)',xsize=160,resource_name='gold')
wtm_from=CW_FIELD(base0,title='from:',value='0',xsize=10,/row,/long,/all_events)
wtm_to=CW_FIELD(base0,title='to:',value='0',xsize=10,/row,/long,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Roll Angle (ccw from N)',xsize=160,resource_name='gold')
wpa_from=CW_FIELD(base0,title='from:',value='0.',xsize=10,/row,/integer,/all_events)
wpa_to=CW_FIELD(base0,title='to:',value='0.',xsize=10,/row,/integer,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Commanded Mirror (R)',xsize=160,resource_name='gold')
wcmd_from=CW_FIELD(base0,title='from:',value='0.',xsize=6,/row,/floating,/all_events)
wcmd_to=CW_FIELD(base0,title='to:',value='0.',xsize=6,/row,/floating,/all_events)
wcmd_incl = CW_BGROUP(base0,['INC'],set_value=[0],/nonexclusive,/row)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Pointing (R)',xsize=160,resource_name='gold')
wmir_from=CW_FIELD(base0,title='from:',value='0.',xsize=6,/row,/floating,/all_events)
wmir_to=CW_FIELD(base0,title='to:',value='0.',xsize=6,/row,/floating,/all_events)
wmir_incl = CW_BGROUP(base0,['INC'],set_value=[0],/nonexclusive,/row)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Slit Width (um)',xsize=160,resource_name='gold')
wslt_from=CW_FIELD(base0,title='from:',value='0.',xsize=6,/row,/integer,/all_events)
wslt_to=CW_FIELD(base0,title='to:',value='0.',xsize=6,/row,/integer,/all_events)
wslt_incl = CW_BGROUP(base0,['INC'],set_value=[0],/nonexclusive,/row)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Exposure Time (sec)',xsize=160,resource_name='gold')
wexpt_from=CW_FIELD(base0,title='from:',value='0.',xsize=10,/row,/long,/all_events)
wexpt_to=CW_FIELD(base0,title='to:',value='0.',xsize=10,/row,/long,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Time Resolution (sec)',xsize=160,resource_name='gold')
wtres_from=CW_FIELD(base0,title='from:',value='0.',xsize=10,/row,/long,/all_events)
wtres_to=CW_FIELD(base0,title='to:',value='0.',xsize=10,/row,/long,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Wavel Range (A)',xsize=160,resource_name='gold')
wwav_from=CW_FIELD(base0,title='from:',value='0.',xsize=10,/row,/floating,/all_events)
wwav_to=CW_FIELD(base0,title='to:',value='0.',xsize=10,/row,/floating,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Wavel Binning (px)',xsize=160,resource_name='gold')
wwdl_from=CW_FIELD(base0,title='from:',value='0',xsize=10,/row,/integer,/all_events)
wwdl_to=CW_FIELD(base0,title='to:',value='0',xsize=10,/row,/integer,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Spatial Resolut. (arcsec)',xsize=160,resource_name='gold')
wspa_from=CW_FIELD(base0,title='from:',value='0',xsize=10,/row,/integer,/all_events)
wspa_to=CW_FIELD(base0,title='to:',value='0',xsize=10,/row,/integer,/all_events)
;
base0=WIDGET_BASE(base,/column)
wlabel=WIDGET_LABEL(base0,value='Spectral Lines',FONT='7x13bold')
wline1 = CW_BGROUP(base0,['HILya','OVI1032','OVI1037','HILyb'], $
label_left = '        ',set_value=0,/nonexclusive,ysize=ysize_cwb,/row)
wline2 = CW_BGROUP(base0,['SiXII499   ','SiXII521','MgX610','NV1239'], $
label_left = '        ',set_value=0,/nonexclusive,ysize=ysize_cwb,/row)
wline3 = CW_BGROUP(base0,['FeXII1242','SX1196','SiIII1206','CIII977' ], $
label_left = '        ',set_value=0,/nonexclusive,ysize=ysize_cwb,/row)
wline4 = CW_BGROUP(base0,['FeXVIII','HILyg973','HeI512','HeI516' ], $
label_left = '        ',set_value=0,/nonexclusive,ysize=ysize_cwb,/row)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='ONUM',xsize=160,resource_name='magenta')
wobsn_from=CW_FIELD(base0,title='from:',value='0.',xsize=10,/row,/long,/all_events)
wobsn_to=CW_FIELD(base0,title='to:',value='0.',xsize=10,/row,/long,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Grating Position',xsize=160,resource_name='magenta')
wgrt_from=CW_FIELD(base0,title='from:',value='0.',xsize=6,/row,/long,/all_events)
wgrt_to=CW_FIELD(base0,title='to:',value='0.',xsize=6,/row,/long,/all_events)
wgrt_incl = CW_BGROUP(base0,['INC'],set_value=[0],/nonexclusive,/row)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Mirror Position',xsize=160,resource_name='magenta')
wmpos_from=CW_FIELD(base0,title='from:',value='0.',xsize=10,/row,/long,/all_events)
wmpos_to=CW_FIELD(base0,title='to:',value='0.',xsize=10,/row,/long,/all_events)
;
base0=WIDGET_BASE(base,/row)
wlab=WIDGET_LABEL(base0,value='Campaign',xsize=160,resource_name='white')
wcmpn=CW_FIELD(base0,title='Number:',value='0',xsize=10,/row,/long,/all_events)
;
base0=WIDGET_BASE(base,/row)
UVCS_READ_MENU_VALUES,'objects',obj_values
wlab=WIDGET_LABEL(base0,value='Object',xsize=160,resource_name='white')
wd_obj=CW_DROPLIST2(base0,VALUE=obj_values,NUM=20,/UPDATE)
;
if hostname(0) eq 'maloca' then num=22 else num=16
base0=WIDGET_BASE(base,/row)
UVCS_READ_MENU_VALUES,'results',res33_values
wlab=WIDGET_LABEL(base0,value='Result',xsize=160,resource_name='white')
wd_res33=CW_DROPLIST2(base0,VALUE=res33_values,NUM=num,/UPDATE)
;
if hostname(0) eq 'maloca' then num=22 else num=15
base0=WIDGET_BASE(base,/row)
UVCS_READ_MENU_VALUES,'observers',obs_values
wlab=WIDGET_LABEL(base0,value='Observer',xsize=160,resource_name='white')
wd_observer=CW_DROPLIST2(base0,VALUE=obs_values,NUM=num,/UPDATE)
;
base0=WIDGET_BASE(base,/row)
UVCS_READ_MENU_VALUES,'obs_mode',om_values
wlab=WIDGET_LABEL(base0,value='Obs Mode',xsize=160,resource_name='white')
wd_om=CW_DROPLIST2(base0,VALUE=om_values,NUM=num,/UPDATE)
;
base0=WIDGET_BASE(base,/row)
UVCS_READ_MENU_VALUES,'sci_obj',sc_values
wlab=WIDGET_LABEL(base0,value='Sci Obj',xsize=160,resource_name='white')
wd_sc=CW_DROPLIST2(base0,VALUE=sc_values,NUM=num,/UPDATE)
;
base0=WIDGET_BASE(base,resource_name='white')
woff = CW_BGROUP(base0,['No','Yes', 'Both'], $
label_left = 'Offset Pointing ',set_value=2,/exclusive,ysize=ysize_cwb,/row)
;
base0=WIDGET_BASE(base,resource_name='white')
wflt = CW_BGROUP(base0,['Both','No', 'Yes'], $
label_left = 'Filter Engaged ',set_value=0,/exclusive,ysize=ysize_cwb,/row)
;
base0=WIDGET_BASE(base,resource_name='white')
wchn = CW_BGROUP(base0,['LYA','OVI', 'Both'], $
label_left = 'Channel          ',set_value=2,/exclusive,ysize=ysize_cwb,/row)
;
base0=WIDGET_BASE(base,resource_name='indian')
wevents = CW_BGROUP(base0,['All','CMEs','Comets','Stars'], $
label_left = 'Events ',set_value=[1,0,0,0],/nonexclusive,ysize=ysize_cwb, $
/row,FONT='7x13bold')
;
base0=WIDGET_BASE(base,/align_center,/row)
action=WIDGET_TEXT(base0,xsize=50)
;
base0=WIDGET_BASE(base,/row)
search=WIDGET_BUTTON(base0,value='SEARCH',uvalue='SEARCH',/align_center, $
xsize=90,ysize=30,resource_name='green')
tmp=WIDGET_LABEL(base0,value='',xsize=40)
clear=WIDGET_BUTTON(base0,value='CLEAR',uvalue='CLEAR',/align_center, $
xsize=90,ysize=30, $
sensitive=0,resource_name='yellow')
tmp=WIDGET_LABEL(base0,value='',xsize=40)
quit=WIDGET_BUTTON(base0,value='QUIT',uvalue='QUIT',/align_center, $
xsize=90,ysize=30,resource_name='red')
;
; Build results widget
;
abase=WIDGET_BASE(main,/column)
;
tmp=WIDGET_LABEL(abase,value='Selected Parameters',FONT='8x13bold')
wsrc_prm=WIDGET_TEXT(abase,value='',xsize=20,ysize=10,resource_name='white',/scroll)
;
tmp=WIDGET_LABEL(abase,value='')  & tmp=WIDGET_LABEL(abase,value='')
tmp=WIDGET_LABEL(abase,value='Results',FONT='8x13bold')
;
abase0=WIDGET_BASE(abase,/align_center,/row)
wnfits=CW_FIELD(abase0,title='# FITS:',value='0',xsize=5,/row,/long,/noedit)
wnrec=CW_FIELD(abase0,title='# Rec:',value='0',xsize=5,/row,/long,/noedit)
;
tmp=WIDGET_LABEL(abase,value='   Filename        Records Event',FONT='7x13bold')
wsrc_res=WIDGET_LIST(abase,value='',xsize=20,ysize=190,resource_name='white', $
scr_ysize=600)
;
abase1=WIDGET_BASE(abase,/row)
wmlog=WIDGET_BUTTON(abase1,value='MLOG',uvalue='MLOG',/align_center, $
xsize=60,ysize=30,sensitive=0,resource_name='green')
tmp=WIDGET_LABEL(abase1,value='',xsize=15)
weve_det=WIDGET_BUTTON(abase1,value='Event Details',uvalue='EVE',/align_center, $
xsize=90,ysize=30,sensitive=0,resource_name='green')
tmp=WIDGET_LABEL(abase1,value='',xsize=15)
det_res=WIDGET_BUTTON(abase1,value='DETAILS',uvalue='DETAILS',/align_center, $
xsize=80,ysize=30,sensitive=0,resource_name='green');
;
abase2=WIDGET_BASE(abase,/row)
tmp=WIDGET_LABEL(abase2,value='',xsize=30)
;
abase0=WIDGET_BASE(abase,/row)
save=WIDGET_BUTTON(abase0,value='SAVE',uvalue='SAVE',/align_center, $
xsize=60,ysize=30,sensitive=0,resource_name='white')
tmp=WIDGET_LABEL(abase0,value='',xsize=30)
prt_res=WIDGET_BUTTON(abase0,value='PRINT',uvalue='PRINT',/align_center, $
xsize=60,ysize=30,sensitive=0,resource_name='white')
tmp=WIDGET_LABEL(abase0,value='',xsize=40)
help=WIDGET_BUTTON(abase0,value='HELP',uvalue='HELP',/align_center, $
xsize=65,ysize=30,resource_name='cyan')
;
WIDGET_CONTROL,main,set_uvalue=action
;
WIDGET_CONTROL,main,/realize
xmanager,'UVCS_SEARCH_MAIN',main
end
;
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SEARCH_MAIN_EVENT
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 21 2002
; May 14 2002
;-----------------------------------------------------------------------
pro UVCS_SEARCH_MAIN_EVENT,ev
;
common wcatal,wd_year,wyear,years_values,wda_from,wda_to,wtm_from,wtm_to,   $
            wpa_from,wpa_to,wcmd_from,wcmd_to,wmir_from,wmir_to,            $
            wslt_from,wslt_to,wexpt_from,wexpt_to,wtres_from,wtres_to,      $
            wwav_from,wwav_to,wwdl_from,wwdl_to,wline1,wline2,wline3,wline4,$
            woff,wobsn_from,wobsn_to,wgrt_from,wgrt_to,wmpos_from,      $
	    wmpos_to,wflt,wchn,wsrc_prm,wsrc_res,wnfits,wnrec,clear,    $
	    save,prt_res,det_res,wmlog,weve_det,wevents,                $
	    wspa_from,wspa_to,wcmpn,wd_obj,wd_res33,wd_observer,        $
	    obj_values,res33_values,obs_values,wd_om,wd_sc,om_values,   $
            sc_values,wcmd_incl,wmir_incl,wslt_incl,wgrt_incl
;
common search_prm,year,da_from,da_to,tm_from,tm_to,pa_from,pa_to,      $
            cmd_from,cmd_to,mir_from,mir_to,slt_from,slt_to,expt_from, $
            expt_to,tres_from,tres_to,wav_from,wav_to,wdl_from,wdl_to, $
	    line1,line2,line3,line4,off,obsn_from,obsn_to,             $
	    grt_from,grt_to,mpos_from,mpos_to,flt,chn,eve,             $
	    spa_from,spa_to,cmpn,obj,res33,observer,obs_mode,sci_obj,  $
            cmd_incl,mir_incl,slt_incl,grt_incl
;
common table,dfile,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,    $
             mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos, $
             tai_xobs,delta_t,exptot,wrange,wdelta,               $
             spa_res,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,k_sci_obj
;
common results,fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,        $
               miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS,$
               tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,                $
               spa_resS,n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,     $
               k_sci_objS,txt_prm,txt_res
;
common details,sfile,efile
;
common das_prnt_conf,prnt_conf_exp,das_font
;
WIDGET_CONTROL,ev.top,get_uvalue=action
WIDGET_CONTROL,ev.id,get_uvalue=uval
;
if ev.id eq wd_year then begin
   year=years_values(ev.index)
   if year eq 'All' then begin
      title='Warning'
      text=STRARR(3)
      text(0)='Read full database: This operation can take long time (minutes)'
      text(1)=''
      text(2)='It is strongly suggested to search on a single year'
      ans=DIALOG_MESSAGE(text,title=title,resource_name='white', $
      DIALOG_PARENT=ev.id)
   endif
   return
endif
;
if ev.id eq wda_from then begin
   WIDGET_CONTROL,wda_from,get_value=da_from
   WIDGET_CONTROL,action,set_value='Date from '+STRING(da_from)
   return
endif
if ev.id eq wda_to then begin
   WIDGET_CONTROL,wda_to,get_value=da_to
   WIDGET_CONTROL,action,set_value='Date to '+STRING(da_to)
   return
endif
;
if ev.id eq wtm_from then begin
   WIDGET_CONTROL,wtm_from,get_value=tm_from
   WIDGET_CONTROL,action,set_value='Time from '+STRING(tm_from)
   return
endif
if ev.id eq wtm_to then begin
   WIDGET_CONTROL,wtm_to,get_value=tm_to
   WIDGET_CONTROL,action,set_value='Time to '+STRING(tm_to)
   return
endif
;
if ev.id eq wpa_from then begin
   WIDGET_CONTROL,wpa_from,get_value=pa_from
   if pa_from le 0 then pa_from=pa_from+360
   WIDGET_CONTROL,action,set_value='Roll Angle from '+STRING(pa_from)
   return
endif
if ev.id eq wpa_to then begin
   WIDGET_CONTROL,wpa_to,get_value=pa_to
   if pa_to gt 360 then pa_to=pa_to-360
   WIDGET_CONTROL,action,set_value='Roll Angle to '+STRING(pa_to)
   return
endif
;
if ev.id eq wcmd_from then begin
   WIDGET_CONTROL,wcmd_from,get_value=cmd_from
   WIDGET_CONTROL,action,set_value='CMDMIR from '+STRING(cmd_from)
   return
endif
if ev.id eq wcmd_to then begin
   WIDGET_CONTROL,wcmd_to,get_value=cmd_to
   WIDGET_CONTROL,action,set_value='CMDMIR to '+STRING(cmd_to)
   return
endif
if ev.id eq wcmd_incl then begin
   cmd_incl=ev.select
   return
endif
;
if ev.id eq wmir_from then begin
   WIDGET_CONTROL,wmir_from,get_value=mir_from
   WIDGET_CONTROL,action,set_value='Pointing from '+STRING(mir_from)
   return
endif
if ev.id eq wmir_to then begin
   WIDGET_CONTROL,wmir_to,get_value=mir_to
   WIDGET_CONTROL,action,set_value='Pointing to '+STRING(mir_to)
   return
endif
if ev.id eq wmir_incl then begin
   mir_incl=ev.select
   return
endif
;
if ev.id eq wslt_from then begin
   WIDGET_CONTROL,wslt_from,get_value=slt_from
   WIDGET_CONTROL,action,set_value='Slit width from '+STRING(slt_from)
   return
endif
if ev.id eq wslt_to then begin
   WIDGET_CONTROL,wslt_to,get_value=slt_to
   WIDGET_CONTROL,action,set_value='Slit width to '+STRING(slt_to)
   return
endif
if ev.id eq wslt_incl then begin
   slt_incl=ev.select
   return
endif
;
if ev.id eq wexpt_from then begin
   WIDGET_CONTROL,wexpt_from,get_value=expt_from
   WIDGET_CONTROL,action,set_value='Total exposure Time from '+STRING(expt_from)
   return
endif
if ev.id eq wexpt_to then begin
   WIDGET_CONTROL,wexpt_to,get_value=expt_to
   WIDGET_CONTROL,action,set_value='Total exposure Time to '+STRING(expt_to)
   return
endif
;
if ev.id eq wtres_from then begin
   WIDGET_CONTROL,wtres_from,get_value=tres_from
   WIDGET_CONTROL,action,set_value='Time Resolution from '+STRING(tres_from)
   return
endif
if ev.id eq wtres_to then begin
   WIDGET_CONTROL,wtres_to,get_value=tres_to
   WIDGET_CONTROL,action,set_value='Time Resolution to '+STRING(tres_to)
   return
endif
;
if ev.id eq wwav_from then begin
   WIDGET_CONTROL,wwav_from,get_value=wav_from
   WIDGET_CONTROL,action,set_value='Wavel Range from '+STRING(wav_from)
   return
endif
if ev.id eq wwav_to then begin
   WIDGET_CONTROL,wwav_to,get_value=wav_to
   WIDGET_CONTROL,action,set_value='Wavel Range to '+STRING(wav_to)
   return
endif
;
if ev.id eq wwdl_from then begin
   WIDGET_CONTROL,wwdl_from,get_value=wdl_from
   WIDGET_CONTROL,action,set_value='Wavel binning from '+STRING(wdl_from)
   return
endif
if ev.id eq wwdl_to then begin
   WIDGET_CONTROL,wwdl_to,get_value=wdl_to
   WIDGET_CONTROL,action,set_value='Wavel binning to '+STRING(wdl_to)
   return
endif
;
if ev.id eq wspa_from then begin
   WIDGET_CONTROL,wspa_from,get_value=spa_from
   WIDGET_CONTROL,action,set_value='Spatial resolution from '+STRING(spa_from)
   return
endif
if ev.id eq wspa_to then begin
   WIDGET_CONTROL,wspa_to,get_value=spa_to
   WIDGET_CONTROL,action,set_value='Spatial resolution to '+STRING(spa_to)
   return
endif
;
if ev.id eq wline1 then begin
   case  ev.value of
      0: begin
           line1(ev.value)=1
           aline1='HILya'
        end
      1: begin
           line1(ev.value)=1
           aline1='OVI1032'
        end
      2: begin
           line1(ev.value)=1
           aline1='OVI1037'
        end
      3: begin
           line1(ev.value)=1
           aline1='HILyb'
        end
   endcase
   WIDGET_CONTROL,action,set_value=aline1+' Spectral Line'
   WIDGET_CONTROL,wline1,get_value=line1
   return
endif
if ev.id eq wline2 then begin
   case  ev.value of
      0: begin
           line2(ev.value)=1
           aline2='SiXII499'
        end
      1: begin
           line2(ev.value)=1
           aline2='SiXII521'
        end
      2: begin
           line2(ev.value)=1
           aline2='MgX610'
        end
      3: begin
           line2(ev.value)=1
           aline2='NV1239'
        end
   endcase
   WIDGET_CONTROL,action,set_value=aline2+' Spectral Line'
   WIDGET_CONTROL,wline2,get_value=line2
   return
endif
if ev.id eq wline3 then begin
   case  ev.value of
      0: begin
           line3(ev.value)=1
           aline3='FeXII1242'
        end
      1: begin
           line3(ev.value)=1
           aline3='SX1196'
        end
      2: begin
           line3(ev.value)=1
           aline3='SiIII1206'
        end
      3: begin
           line3(ev.value)=1
           aline3='CIII977'
        end
   endcase
   WIDGET_CONTROL,action,set_value=aline3+' Spectral Line'
   WIDGET_CONTROL,wline3,get_value=line3
   return
endif
if ev.id eq wline4 then begin
   case  ev.value of
      0: begin
           line4(ev.value)=1
           aline4='FeXVIII'
        end
      1: begin
           line4(ev.value)=1
           aline4='HILyg973'
        end
      2: begin
           line4(ev.value)=1
           aline4='HeI512'
        end
      3: begin
           line4(ev.value)=1
           aline4='HeI516'
        end
   endcase
   WIDGET_CONTROL,action,set_value=aline4+' Spectral Line'
   WIDGET_CONTROL,wline4,get_value=line4
   return
endif
;
if ev.id eq woff then begin
   if  ev.value eq 0 then begin
        ans='NO'
	off=0
        if ev.select eq 1 then begin
           title='Offset Info'
           text=STRARR(5)
           text(1)='Offet = NO'
           text(3)='when |offset| < 0.2'
           ans=DIALOG_MESSAGE(text,title=title,resource_name='white', $
           DIALOG_PARENT=ev.id)
        endif
   endif
   if  ev.value eq 1 then begin
        ans='YES'
	off=1
        if ev.select eq 1 then begin
           title='Offset Info'
           text=STRARR(5)
           text(1)='Offset = YES'
           text(3)='only when |offset| > 0.1'
           ans=DIALOG_MESSAGE(text,title=title,resource_name='white', $
           DIALOG_PARENT=ev.id)
        endif
   endif
   if  ev.value eq 2 then begin
        ans='both'
	off=2
   endif
   WIDGET_CONTROL,action,set_value='Offset ? '+ans
   return
endif
;
if ev.id eq wobsn_from then begin
   WIDGET_CONTROL,wobsn_from,get_value=obsn_from
   WIDGET_CONTROL,action,set_value='ONUM from '+STRING(obsn_from)
   return
endif
if ev.id eq wobsn_to then begin
   WIDGET_CONTROL,wobsn_to,get_value=obsn_to
   WIDGET_CONTROL,action,set_value='ONUM to '+STRING(obsn_to)
   return
endif
;
if ev.id eq wgrt_from then begin
   WIDGET_CONTROL,wgrt_from,get_value=grt_from
   WIDGET_CONTROL,action,set_value='Grating position from '+STRING(grt_from)
   return
endif
if ev.id eq wgrt_to then begin
   WIDGET_CONTROL,wgrt_to,get_value=grt_to
   WIDGET_CONTROL,action,set_value='Grating position to '+STRING(grt_to)
   return
endif
if ev.id eq wgrt_incl then begin
   grt_incl=ev.select
   return
endif
;
if ev.id eq wmpos_from then begin
   WIDGET_CONTROL,wmpos_from,get_value=mpos_from
   WIDGET_CONTROL,action,set_value='Mirror position from '+STRING(mpos_from)
   return
endif
if ev.id eq wmpos_to then begin
   WIDGET_CONTROL,wmpos_to,get_value=mpos_to
   WIDGET_CONTROL,action,set_value='Mirror position to '+STRING(mpos_to)
   return
endif
;
if ev.id eq wcmpn then begin
   print,wcmpn
   WIDGET_CONTROL,wcmpn,get_value=cmpn
   WIDGET_CONTROL,action,set_value='Campaign Number '+STRING(cmpn)
   return
endif
;
if ev.id eq wd_obj then begin
   obj=obj_values(ev.index)
   WIDGET_CONTROL,action,set_value='Object '+obj
   return
endif
;
if ev.id eq wd_res33 then begin
   res33=res33_values(ev.index)
   WIDGET_CONTROL,action,set_value='Results (?)'+res33
   return
endif
;
if ev.id eq wd_observer then begin
   observer=obs_values(ev.index)
   WIDGET_CONTROL,action,set_value='Observer '+observer
   return
endif
;
if ev.id eq wd_om then begin
   obs_mode=om_values(ev.index)
   WIDGET_CONTROL,action,set_value='Obs_Mode '+obs_mode
   return
endif
;
if ev.id eq wd_sc then begin
   sci_obj=sc_values(ev.index)
   WIDGET_CONTROL,action,set_value='Sci_Obj '+sci_obj
   return
endif
;
if ev.id eq wflt then begin
   if  ev.value eq 0 then begin
       ans='both'
       flt=0
   endif
   if  ev.value eq 1 then begin
       ans='NO'
       flt=1
   endif
   if  ev.value eq 2 then begin
       ans='YES'
       flt=2
   endif
   WIDGET_CONTROL,action,set_value='Filter Engaged ? '+ans
   return
endif
;
if ev.id eq wchn then begin
   if  ev.value eq 0 then begin
        ans='LYA'
	chn=0
   endif
   if  ev.value eq 1 then begin
        ans='OVI'
	chn=1
   endif
   if  ev.value eq 2 then begin
        ans='both'
	chn=2
   endif
   WIDGET_CONTROL,action,set_value='Channel ? '+ans
   return
endif
;
if ev.id eq wevents then begin
   WIDGET_CONTROL,wevents,get_value=yeve
   ;
   ; EVENT
   ;yeve  :   0    1      2       3
   ;event:  All  CMEs  Comets  Stars
   type_eve=['All','CMEs','Comets','Stars']
   ;
   if yeve(3) ne 0 then begin
      ; temporary: waiting for Stars Catalog
      yeve(3)=0
      title='Work in progress'
      text=STRARR(2)
      text(0)='The Catalogs of Stars'
      text(1)='observed by UVCS do not yet exist'
      ans=DIALOG_MESSAGE(text,title=title,resource_name='azure', $
      DIALOG_PARENT=ev.id)
   endif
   ;
   if MAX(yeve) eq 0 then yeve(0)=1
   if yeve(0) eq 1 then eve='All'
   if yeve(0) eq 0 then begin
      yi=WHERE(yeve eq 1)
      eve=STRCOMPRESS(type_eve(yi),/rem)
   endif
   WIDGET_CONTROL,action,set_value=eve+' Events'
   return
endif
;
if ev.id eq wsrc_res then begin
   sfile=STRMID(txt_res(ev.index),0,26)
   efile=STRCOMPRESS(STRMID(txt_res(ev.index),36),/rem)
   WIDGET_CONTROL,action,set_value=sfile+' Selected for details '
   ; make sensitive DETAILS Event Details and MLOG buttons
   WIDGET_CONTROL,det_res,sensitive=1
   WIDGET_CONTROL,wmlog,sensitive=1
   ;print,'Sensitive only if there is a Event'
   WIDGET_CONTROL,weve_det,sensitive=1
   return
endif
;
case uval of
   'SEARCH': begin
          ;print,SYSTIME()
          WIDGET_CONTROL,action,set_value='start search',/HOURGLASS
          ;
          if da_from eq 0 then da_from = da_to
          if da_to   eq 0 then da_to   = da_from
	  WIDGET_CONTROL,wda_from,set_value=da_from
	  WIDGET_CONTROL,wda_to,set_value=da_to
          ;
          if tm_to   eq 0 then tm_to   = tm_from
          if da_from ne 0 AND tm_to eq 0 then tm_to = 2400
	  WIDGET_CONTROL,wtm_from,set_value=tm_from
	  WIDGET_CONTROL,wtm_to,set_value=tm_to
          ;
          if pa_from eq 0 then pa_from = pa_to
          if pa_to   eq 0 then pa_to   = pa_from
	  WIDGET_CONTROL,wpa_from,set_value=pa_from
	  WIDGET_CONTROL,wpa_to,set_value=pa_to
          ;
          if cmd_from eq 0. then cmd_from = cmd_to
          if cmd_to   eq 0. then cmd_to   = cmd_from
	  WIDGET_CONTROL,wcmd_from,set_value=cmd_from
	  WIDGET_CONTROL,wcmd_to,set_value=cmd_to
          WIDGET_CONTROL,wcmd_incl,set_value=cmd_incl
          ;
          if mir_from eq 0. then mir_from = mir_to
          if mir_to   eq 0. then mir_to   = mir_from
	  WIDGET_CONTROL,wmir_from,set_value=mir_from
	  WIDGET_CONTROL,wmir_to,set_value=mir_to
          WIDGET_CONTROL,wmir_incl,set_value=mir_incl
          ;
          if slt_from eq 0 then slt_from = slt_to
          if slt_to   eq 0 then slt_to   = slt_from
	  WIDGET_CONTROL,wslt_from,set_value=slt_from
	  WIDGET_CONTROL,wslt_to,set_value=slt_to
          WIDGET_CONTROL,wslt_incl,set_value=slt_incl
          ;
          if expt_from eq 0 then expt_from = expt_to
          if expt_to   eq 0 then expt_to   = expt_from
	  WIDGET_CONTROL,wexpt_from,set_value=expt_from
	  WIDGET_CONTROL,wexpt_to,set_value=expt_to
          ;
	  if tres_from eq 0 then tres_from = tres_to
          if tres_to   eq 0 then tres_to   = tres_from
	  WIDGET_CONTROL,wtres_from,set_value=tres_from
	  WIDGET_CONTROL,wtres_to,set_value=tres_to
          ;
          if wav_from eq 0. then wav_from = wav_to
          if wav_to   eq 0. then wav_to   = wav_from
	  WIDGET_CONTROL,wwav_from,set_value=wav_from
	  WIDGET_CONTROL,wwav_to,set_value=wav_to
          ;
          if wdl_from eq 0 then wdl_from = wdl_to
          if wdl_to   eq 0 then wdl_to   = wdl_from
	  WIDGET_CONTROL,wwdl_from,set_value=wdl_from
	  WIDGET_CONTROL,wwdl_to,set_value=wdl_to
          ;
          if obsn_from eq 0 then obsn_from = obsn_to
          if obsn_to   eq 0 then obsn_to   = obsn_from
	  WIDGET_CONTROL,wobsn_from,set_value=obsn_from
	  WIDGET_CONTROL,wobsn_to,set_value=obsn_to
          ;
          if grt_from eq 0 then grt_from = grt_to
          if grt_to   eq 0 then grt_to   = grt_from
	  WIDGET_CONTROL,wgrt_from,set_value=grt_from
	  WIDGET_CONTROL,wgrt_to,set_value=grt_to
          WIDGET_CONTROL,wgrt_incl,set_value=grt_incl
          ;
          if mpos_from eq 0 then mpos_from = mpos_to
          if mpos_to   eq 0 then mpos_to   = mpos_from
	  WIDGET_CONTROL,wmpos_from,set_value=mpos_from
	  WIDGET_CONTROL,wmpos_to,set_value=mpos_to
          ;
          if spa_from eq 0 then spa_from = spa_to
          if spa_to   eq 0 then spa_to   = spa_from
	  WIDGET_CONTROL,wspa_from,set_value=spa_from
	  WIDGET_CONTROL,wspa_to,set_value=spa_to
          ;
          ; Read catalog files
	  ;if table file has been loaded: do not reload
          if N_ELEMENTS(dfile) ne 0 then begin
	     qq=STRPOS(dfile(0),year(0))
             if qq ne -1 then goto, noreload
          endif
	  ;
	  UVCS_SEL_CATALOG,file,expc,roll,obsn,npan,grt,mirpos,cmdmir, $
                mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos,   $
                tai_xobs,delta_t,exptot,wrange,wdelta,spa_res,dfile,   $
                fileB,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,         $
                k_sci_obj,dfileB
          if dfile(0) eq '' OR dfileB(0) eq '' then return 
          ;
          n_cmp_no_tmp=INTARR(N_ELEMENTS(file))
	  n_obj_tmp=STRARR(N_ELEMENTS(file))
	  n_res_tmp=STRARR(N_ELEMENTS(file))
	  n_obser_tmp=STRARR(N_ELEMENTS(file))
	  k_obs_mode_tmp=STRARR(N_ELEMENTS(file))
	  k_sci_obj_tmp=STRARR(N_ELEMENTS(file))
	  ;
          ;print,'   Start Loop to expand new keywords ',SYSTIME()
          tit='Populate variables'
          progr_msg='Records Loaded'
          PROGRESS_BAR_SG,N_ELEMENTS(fileB)-1,tit,progr_msg,bar_frq,bar,STAGE='Start',bcnt
	  for j=0,N_ELEMENTS(fileB)-1 do begin
              PROGRESS_BAR_SG,N_ELEMENTS(fileB)-1,tit,progr_msg,bar_frq,bar,STAGE='Loop',bcnt,j
              q=WHERE(file eq fileB(j))
	      n_cmp_no_tmp(q)=n_cmp_no(j)
	      n_obj_tmp(q)=n_obj(j)
	      n_res_tmp(q)=n_res(j)
	      n_obser_tmp(q)=n_obser(j)
	      k_obs_mode_tmp(q)=k_obs_mode(j)
	      k_sci_obj_tmp(q)=k_sci_obj(j)
	  endfor
          PROGRESS_BAR_SG,N_ELEMENTS(fileB)-1,tit,progr_msg,bar_frq,bar,STAGE='End'
          ;print,'   End  Loop to expand new keywords ',SYSTIME()
	  n_cmp_no=n_cmp_no_tmp
	  n_obj=n_obj_tmp
	  n_res=n_res_tmp
	  n_obser=n_obser_tmp
	  k_obs_mode=k_obs_mode_tmp
	  k_sci_obj=k_sci_obj_tmp
          ;
	  ;help,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,    $
          ;      mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos, $
          ;      tai_xobs,delta_t, exptot,wrange,wdelta,spa_res,dfile,$
          ;      fileB,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,       $
          ;      k_sci_obj,dfileB
	  ;
	  if dfile(0) eq '' OR dfileB(0) eq '' then begin
	     return
	  endif
	  noreload:
	  ;print,'Total Number of Records: ',N_ELEMENTS(file)
          ;print,'Total Number of FITS: ',N_ELEMENTS(fileB)
	  ;
          ; Search data
          UVCS_SEARCH_DATA,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,       $
		mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos,         $
                tai_xobs,delta_t,exptot,wrange,wdelta,spa_res,               $
		n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,k_sci_obj,           $
             	fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,          $
             	miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS,  $
             	tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,         $
		n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
          ;
	  ; Search info in CME, Comets and Stars Catalogs
	  UVCS_SEARCH_EVE,fileS,txt_eve
	  ;
          ; Display Results
          UVCS_SHOW_RESULTS,dfile,                                          $
                fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
             	miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
             	tai_xobsS,delta_tS, exptotS,wrangeS,wdeltaS,                $
		spa_resS,n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,      $
		k_sci_objS,txt_prm,txt_res,nfits,txt_eve
	  ;
	  WIDGET_CONTROL,wsrc_prm,set_value=txt_prm
          WIDGET_CONTROL,wsrc_res,set_value=txt_res
          WIDGET_CONTROL,wnfits,set_value=nfits
	  if fileS(0) eq '' then nrec=0 else nrec=N_ELEMENTS(fileS)
          WIDGET_CONTROL,wnrec,set_value=nrec
	  ;
          ;
          ; make buttons sensitive/insensitive
	  WIDGET_CONTROL,clear,sensitive=1
	  WIDGET_CONTROL,save,sensitive=1
	  WIDGET_CONTROL,prt_res,sensitive=1
          WIDGET_CONTROL,det_res,sensitive=0
          WIDGET_CONTROL,wmlog,sensitive=0
          WIDGET_CONTROL,weve_det,sensitive=0
          ;print,SYSTIME()
             end
   'CLEAR' : begin
          WIDGET_CONTROL,action,set_value='clear search parameters'
          WIDGET_CONTROL,ev.top,/destroy
          UVCS_SEARCH_MAIN
             end
   'SAVE'  : begin
          WIDGET_CONTROL,action,set_value='save results'
          UVCS_SAVE_RESULTS,txt_prm,txt_res
             end
          ;
   'PRINT' : begin
          WIDGET_CONTROL,action,set_value='; print results'
          UVCS_PRINT_RESULTS,txt_prm,txt_res
             end
          ;
   'DETAILS': begin
          WIDGET_CONTROL,action,set_value='show details'
          UVCS_SHOW_DETAILS,sfile,                                          $
                fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
             	miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
             	tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,                 $
		spa_resS,n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,      $
		k_sci_objS
             end
          ;
   'MLOG': begin
          WIDGET_CONTROL,action,set_value='show mission log'
	  ; Find mission log file
	  UVCS_GET_CORE_FITS,sfile,core_name
          mlog_dir='../MLOG/*/*'
	  spawn,'grep '+core_name+' '+mlog_dir,mlog_str
	  q=STRPOS(mlog_str(0),':')
	  mfile=STRMID(mlog_str(0),0,q)
	  ; Display mission log file
          if q ne -1 then $
          XDISPLAYFILE,mfile,DONE_BUTTON='QUIT',TITLE='Mission Log File', $
          HEIGHT=45
          if q eq -1 then begin
             title='File not found'
             text=STRARR(3)
             text(0)='There are no mission log files'
             text(1)='    in the directory '+mlog_dir
             text(2)='    which contains the filename '+sfile
             ans=DIALOG_MESSAGE(text,title=title,resource_name='yellow', $
             DIALOG_PARENT=ev.id)
          endif
             end
          ;
   'EVE': begin
          WIDGET_CONTROL,action,set_value='show event detail'
          if efile eq '.' then begin
             text='There are no events for this FITS file'
             ans=DIALOG_MESSAGE(text,/INFORMATION,resource_name='yellow', $
             DIALOG_PARENT=ev.id)
             return
          endif
          ; Read event catalog
          UVCS_READ_EVE_CAT,evecat,TYPE=efile
          ;
	  sfile_core=STRCOMPRESS(STRMID(sfile,1,14),/rem)
          ; Search FITS filename in Catalog file
          w=WHERE(STRMATCH(evecat,'*'+sfile_core+'*'),cnt)
          fID=w(0)
          ;
	  eve_det=''
          q=WHERE(STRMATCH(evecat,'*#*'),cnt)
          for j=0,cnt-1 do begin
             if q(j) gt fID then begin
	  	eve_det=STRARR(q(j)-q(j-1))
                eve_det=evecat(q(j-1):q(j)-2)
                goto,outj
	     endif
	  endfor
	  outj:
	  s=N_ELEMENTS(eve_det)
	  last=STRMID(STRCOMPRESS(eve_det(s-1),/rem),0,1)
	  if last eq '1' or last eq '2' then eve_det=eve_det(0:s-2)
	  ; show Event details: eve_det
	  UVCS_SHOW_EVE_DETAILS,eve_det,efile
             end
          ;
   'HELP' : begin
          WIDGET_CONTROL,action,set_value='help'
          hfile='../SRCH_PRO/uvcs_catalog_search_help'
          XDISPLAYFILE,hfile,DONE_BUTTON='QUIT',TITLE='Search Catalog Help v1.3', $
          HEIGHT=45
             end
          ;
   'QUIT' : begin
          WIDGET_CONTROL, Default_Font=das_font	; SG Oct 07 EOF
          WIDGET_CONTROL,ev.top,/destroy
             end
endcase
end
;
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_READ_TABLE_A
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 21 2002
; Jul 26 2002 format I2 for wd*
;-----------------------------------------------------------------------
pro UVCS_READ_TABLE_A,file,expc,roll,obsn,npan,grt,mirpos,cmdmir, $
             mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos, $
             tai_xobs,delta_t,exptot,wrange,wdelta,               $
             spa_res,dfile
;
; Read to define variables only
;
; loop over all A table files
for j=0, N_ELEMENTS(dfile)-1 do begin
  ;
  dfile0=dfile(j)
  ;
  n=0   &   tmp1=''
  nc=2  ; line of comments
  openr,unit,dfile0,/get_lun
    while not EOF(unit) do begin
      readf,unit,tmp1
      n=n+1
    endwhile
  close,unit
  ;
  ; Define results variables
  nn=n-2	; number of different values
  ns=STRARR(nn)
  nf=FLTARR(nn)
  nb=DBLARR(nn)
  ni=INTARR(nn)
  nl=LONARR(nn)
  ;
  ; print,' Number of Data Sets : ',nn,' in file ',dfile0
  ;
  file	        = ns	;  0
  expc	        = ni	;  1
  roll          = ni	;  2
  obsn	        = ni	;  3
  npan	        = ni	;  4
  grt	        = nl	;  5
  mirpos        = nl	;  6
  cmdmir        = nf	;  7
  mirangl	= nf	;  8
  offset	= nf	;  9
  occpos	= nl	; 10
  occwdth	= nf	; 11
  sltpos	= nl	; 12
  sltwdth	= ni	; 13
  fltpos	= ni	; 14
  tai_xobs      = nb	; 15
  delta_t	= ni	; 16
  exptot	= nl	; 17
  wmin0	        = nf	; 18
  wmax0         = nf	; 19
  wd0           = ni	; 20
  wmin1	        = nf	; 21
  wmax1         = nf	; 22
  wd1           = ni	; 23
  wmin2	        = nf	; 24
  wmax2         = nf	; 25
  wd2           = ni	; 26
  wmin3	        = nf	; 27
  wmax3         = nf	; 28
  wd3           = ni	; 29
  wmin4	        = nf	; 30
  wmax4         = nf	; 31
  wd4           = ni	; 32
  wmin5	        = nf	; 33
  wmax5         = nf	; 34
  wd5           = ni	; 35
  spa_res       = ni    ; 36
  ;
  ; Read to fill variables
  ;
  ;file|expcount|ins_roll|obs_num|npanel|grtpos|mirpos|cmdmir|mirangl|offset|
  f0='(A26,A1,I3,A1,I3,A1,I5,A1,I1,A1,I6,A1,I5,A1,F5.2,A1,F5.2,A1,F5.2,A1,'
  ;occpos|occdth|sltpos|sltwdth|fltpos|tai_xobs|d_time|exptot|
  f1='I5,A1,F5.2,A1,I5,A1,I3,A1,I1,A1,F11.0,A1,I3,A1,I5,A1,'
  ;mw0|Mw0|wd0|mw1|Mw1|wd1|mw2|Mw2|wd2|mw3|Mw3|wd3|mw4|Mw4|wd4|mw5|Mw5|wd5|
  f2='6(F6.1,A1,F6.1,A1,I2,A1),'
  ;spa_r
  f3='I4)'
  frm=f0+f1+f2+f3
  ;
  ; Read header
  ;
  cmm=STRARR(2)
  openr,unit,dfile0,/get_lun
  readf,unit,cmm
  ;
  ; Define temporary variables
  ;
  qq=''
  ;
  tmp0=''       & tmp1=0   & tmp2=0   & tmp3=0         & tmp4=0   & tmp5=LONG(0)
  tmp6=LONG(0)  & tmp7=0.  & tmp8=0.  & tmp9=0.        & tmp10=LONG(0)  & tmp11=0.
  tmp12=LONG(0) & tmp13=0  & tmp14=0  & tmp15=LONG(0)  & tmp16=0  & tmp17=LONG(0)
  tmp18=0.      & tmp19=0. & tmp20=0  & tmp21=0.       & tmp22=0. & tmp23=0
  tmp24=0.      & tmp25=0. & tmp26=0  & tmp27=0.       & tmp28=0. & tmp29=0
  tmp30=0.      & tmp31=0. & tmp32=0  & tmp33=0.       & tmp34=0. & tmp35=0
  tmp36=0
  ;
  spc0=''  &  spc1=''  & spc2=''  & spc3=''   &  spc4='' & spc5=''  & spc6=''
  spc7=''  &  spc8=''  & spc9=''  & spc10=''  & spc11='' & spc12='' & spc13=''
  spc14='' &  spc15='' & spc16='' & spc17=''  & spc18='' & spc19='' & spc20=''
  spc21='' &  spc22='' & spc23='' & spc24=''  & spc25='' & spc26='' & spc27=''
  spc28='' &  spc29='' & spc30='' & spc31=''  & spc32='' & spc33='' & spc34=''
  spc35=''
  ;
  ; Read table values
  ;
  ;print,'Read Table A ',SYSTIME()
  tit='Table Upload'
  progr_msg='Records Loaded'
  PROGRESS_BAR_SG,nn-1,tit,progr_msg,bar_frq,bar,STAGE='Start',bcnt
  for i=0l, nn-1 do begin
     PROGRESS_BAR_SG,nn-1,tit,progr_msg,bar_frq,bar,STAGE='Loop',bcnt,i
     readf,unit,format=frm,tmp0,spc0,tmp1,spc1,tmp2,spc2,tmp3,spc3,tmp4,spc4, $
                           tmp5,spc5,tmp6,spc6,tmp7,spc7,tmp8,spc8,tmp9,spc9, $
                           tmp10,spc10,tmp11,spc11,tmp12,spc12,tmp13,spc13,   $
                           tmp14,spc14,tmp15,spc15,tmp16,spc16,tmp17,spc17,   $
                           tmp18,spc18,tmp19,spc19,tmp20,spc20,tmp21,spc21,   $
                           tmp22,spc22,tmp23,spc23,tmp24,spc24,tmp25,spc25,   $
                           tmp26,spc26,tmp27,spc27,tmp28,spc28,tmp29,spc29,   $
                           tmp30,spc30,tmp31,spc31,tmp32,spc32,tmp33,spc33,   $
                           tmp34,spc34,tmp35,spc35,tmp36
     file(i)	    	= tmp0
     expc(i)	    	= tmp1
     roll(i)   	        = tmp2
     obsn(i)	    	= tmp3
     npan(i)	    	= tmp4
     grt(i)	    	= tmp5
     mirpos(i)		= tmp6
     cmdmir(i)    	= tmp7
     mirangl(i)		= tmp8
     offset(i)		= tmp9
     occpos(i)		= tmp10
     occwdth(i)		= tmp11
     sltpos(i)		= tmp12
     sltwdth(i)		= tmp13
     fltpos(i)		= tmp14
     tai_xobs(i)    	= tmp15
     delta_t(i)		= tmp16
     exptot(i)		= tmp17
     wmin0(i)		= tmp18
     wmax0(i)       	= tmp19
     wd0(i)         	= tmp20
     wmin1(i)		= tmp21
     wmax1(i)       	= tmp22
     wd1(i)         	= tmp23
     wmin2(i)    	= tmp24
     wmax2(i)       	= tmp25
     wd2(i)         	= tmp26
     wmin3(i)		= tmp27
     wmax3(i)       	= tmp28
     wd3(i)         	= tmp29
     wmin4(i)		= tmp30
     wmax4(i)       	= tmp31
     wd4(i)         	= tmp32
     wmin5(i)		= tmp33
     wmax5(i)       	= tmp34
     wd5(i)         	= tmp35
     spa_res(i)         = tmp36
  endfor
  PROGRESS_BAR_SG,nn-1,tit,progr_msg,bar_frq,bar,STAGE='End'
  ;
  close,unit
  close,/all
  if j eq 0 then begin
     file_all     = file
     expc_all     = expc
     roll_all     = roll
     obsn_all     = obsn
     npan_all     = npan
     grt_all      = grt
     mirpos_all   = mirpos
     cmdmir_all   = cmdmir
     mirangl_all  = mirangl
     offset_all   = offset
     occpos_all   = occpos
     occwdth_all  = occwdth
     sltpos_all   = sltpos
     sltwdth_all  = sltwdth
     fltpos_all   = fltpos
     tai_xobs_all = tai_xobs
     delta_t_all  = delta_t
     exptot_all   = exptot
     wmin0_all    = wmin0
     wmax0_all    = wmax0
     wd0_all      = wd0
     wmin1_all    = wmin1
     wmax1_all    = wmax1
     wd1_all      = wd1
     wmin2_all    = wmin2
     wmax2_all    = wmax2
     wd2_all      = wd2
     wmin3_all    = wmin3
     wmax3_all    = wmax3
     wd3_all      = wd3
     wmin4_all    = wmin4
     wmax4_all    = wmax4
     wd4_all      = wd4
     wmin5_all    = wmin5
     wmax5_all    = wmax5
     wd5_all      = wd5
     spa_res_all  = spa_res
  endif else begin
     file_all     = [file_all     ,file]
     expc_all     = [expc_all     ,expc]
     roll_all     = [roll_all     ,roll]
     obsn_all     = [obsn_all     ,obsn]
     npan_all     = [npan_all     ,npan]
     grt_all      = [grt_all      ,grt]
     mirpos_all   = [mirpos_all   ,mirpos]
     cmdmir_all   = [cmdmir_all   ,cmdmir]
     mirangl_all  = [mirangl_all  ,mirangl]
     offset_all   = [offset_all   ,offset]
     occpos_all   = [occpos_all   ,occpos]
     occwdth_all  = [occwdth_all  ,occwdth]
     sltpos_all   = [sltpos_all   ,sltpos]
     sltwdth_all  = [sltwdth_all  ,sltwdth]
     fltpos_all   = [fltpos_all   ,fltpos]
     tai_xobs_all = [tai_xobs_all ,tai_xobs]
     delta_t_all  = [delta_t_all  ,delta_t]
     exptot_all   = [exptot_all   ,exptot]
     wmin0_all    = [wmin0_all    ,wmin0]
     wmax0_all    = [wmax0_all    ,wmax0]
     wd0_all      = [wd0_all      ,wd0]
     wmin1_all    = [wmin1_all    ,wmin1]
     wmax1_all    = [wmax1_all    ,wmax1]
     wd1_all      = [wd1_all      ,wd1]
     wmin2_all    = [wmin2_all    ,wmin2]
     wmax2_all    = [wmax2_all    ,wmax2]
     wd2_all      = [wd2_all      ,wd2]
     wmin3_all    = [wmin3_all    ,wmin3]
     wmax3_all    = [wmax3_all    ,wmax3]
     wd3_all      = [wd3_all      ,wd3]
     wmin4_all    = [wmin4_all    ,wmin4]
     wmax4_all    = [wmax4_all    ,wmax4]
     wd4_all      = [wd4_all      ,wd4]
     wmin5_all    = [wmin5_all    ,wmin5]
     wmax5_all    = [wmax5_all    ,wmax5]
     wd5_all      = [wd5_all      ,wd5]
     spa_res_all  = [spa_res_all  ,spa_res]
  endelse
endfor
;
file     = file_all
expc     = expc_all
roll     = roll_all
obsn     = obsn_all
npan     = npan_all
grt      = grt_all
mirpos   = mirpos_all
cmdmir   = cmdmir_all
mirangl  = mirangl_all
offset   = offset_all
occpos   = occpos_all
occwdth  = occwdth_all
sltpos   = sltpos_all
sltwdth  = sltwdth_all
fltpos   = fltpos_all
tai_xobs = tai_xobs_all
delta_t  = delta_t_all
exptot   = exptot_all
wmin0    = wmin0_all
wmax0    = wmax0_all
wd0      = wd0_all
wmin1    = wmin1_all
wmax1    = wmax1_all
wd1      = wd1_all
wmin2    = wmin2_all
wmax2    = wmax2_all
wd2      = wd2_all
wmin3    = wmin3_all
wmax3    = wmax3_all
wd3      = wd3_all
wmin4    = wmin4_all
wmax4    = wmax4_all
wd4      = wd4_all
wmin5    = wmin5_all
wmax5    = wmax5_all
wd5      = wd5_all
spa_res  = spa_res_all
;
wrange=FLTARR(N_ELEMENTS(file),2,6)
wrange(*,0,0)=wmin0
wrange(*,1,0)=wmax0
wrange(*,0,1)=wmin1
wrange(*,1,1)=wmax1
wrange(*,0,2)=wmin2
wrange(*,1,2)=wmax2
wrange(*,0,3)=wmin3
wrange(*,1,3)=wmax3
wrange(*,0,4)=wmin4
wrange(*,1,4)=wmax4
wrange(*,0,5)=wmin5
wrange(*,1,5)=wmax5
;
wdelta=FLTARR(N_ELEMENTS(file),6)
wdelta(*,0)=wd0
wdelta(*,1)=wd1
wdelta(*,2)=wd2
wdelta(*,3)=wd3
wdelta(*,4)=wd4
wdelta(*,5)=wd5
;
;help,dfile,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,    $
;     mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos, $
;     tai_xobs,delta_t,exptot,wrange,wdelta,               $
;     spa_res
;stp
;
;print,'Table A Uploaded',SYSTIME()
return
end
;
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_READ_TABLE_B
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Nov 06 2003
;-----------------------------------------------------------------------
pro UVCS_READ_TABLE_B,fileB,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode, $
    k_sci_obj,dfileB
;
; loop over all B table files
for j=0, N_ELEMENTS(dfileB)-1 do begin
  ;
  dfile0=dfileB(j)
  ;
  ; Read to define variables only
  ;
  n=0   &   tmp1=''
  nc=2  ; line of comments
  openr,unit,dfile0,/get_lun
    while not EOF(unit) do begin
      readf,unit,tmp1
      n=n+1
    endwhile
  close,unit

  ; Define results variables
  nn=n-2	; number of different values
  ns=STRARR(nn)
  ni=INTARR(nn)
  ;
  ;print,' Number of Data Sets : ',nn,' in dfile0 ',dfile0
  ;
  fileB	      = ns	  ;  0
  n_cmp_no    = ni        ;  1
  n_obj       = ns        ;  2
  n_res       = ns        ;  3
  n_obser     = ns        ;  5
  k_obs_mode  = ns        ;  6
  k_sci_obj   = ns        ;  7
  ;
  ; Read to fill variables
  ;
  ;fileB|cmp|object|results|observer|k_obs_mode|k_sci_obj
  f0='(A26,A1,I4,A1,A5,A1,A20,A1,A25,A1,A70,A1,A55)'
  frm=f0
  ;
  ; Read header
  ;
  cmm=STRARR(2)
  openr,unit,dfile0,/get_lun
  readf,unit,cmm
  ;
  ; Define temporary variables
  ;
  tmp0=''  &  tmp2=''   &  tmp3='' &  tmp4=''  &  tmp5='' &  tmp6=''
  spc0=''  &  spc1=''  &  spc2='' & spc3=''   &  spc4='' &  spc5=''
  ;
  ; Read table values
  ;
  for i=0l, nn-1 do begin
     readf,unit,format=frm,tmp0,spc0,tmp1,spc1,tmp2,spc2,tmp3,spc3,tmp4, $
                                spc4,tmp5,spc5,tmp6
     fileB(i)	    	= tmp0
     n_cmp_no(i)        = tmp1
     n_obj(i)         	= tmp2
     n_res(i)         	= tmp3
     n_obser(i)         = tmp4
     k_obs_mode(i)      = tmp5
     k_sci_obj(i)       = tmp6
  endfor
  ;
  close,unit
  close,/all
  if j eq 0 then begin
     fileB_all        = fileB
     n_cmp_no_all     = n_cmp_no
     n_obj_all        = n_obj
     n_res_all        = n_res
     n_obser_all      = n_obser
     k_obs_mode_all   = k_obs_mode
     k_sci_obj_all    = k_sci_obj
  endif else begin
     fileB_all        = [fileB_all     ,fileB]
     n_cmp_no_all     = [n_cmp_no_all  ,n_cmp_no]
     n_obj_all        = [n_obj_all     ,n_obj]
     n_res_all        = [n_res_all     ,n_res]
     n_obser_all      = [n_obser_all   ,n_obser]
     k_obs_mode_all   = [k_obs_mode_all,k_obs_mode]
     k_sci_obj_all    = [k_sci_obj_all ,k_sci_obj]
  endelse
endfor
;
fileB        = fileB_all
n_cmp_no     = n_cmp_no_all
n_obj        = n_obj_all
n_res        = n_res_all
n_obser      = n_obser_all
k_obs_mode   = k_obs_mode_all
k_sci_obj    = k_sci_obj_all
;
;help,dfileB,fileB,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,k_sci_obj
;stp
;
return
end
;
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SEL_CATALOG
;
; Inputs:  year from common search_prm
;
; Outputs: table loaded into procedure parameters
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 21 2002
; May 14 2002
;-----------------------------------------------------------------------
pro UVCS_SEL_CATALOG,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,     $
                mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos, $
                tai_xobs,delta_t, exptot,wrange,wdelta,spa_res,dfile,$
                fileB,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,       $
                k_sci_obj,dfileB
;
common search_prm,year,da_from,da_to,tm_from,tm_to,pa_from,pa_to,      $
            cmd_from,cmd_to,mir_from,mir_to,slt_from,slt_to,expt_from, $
            expt_to,tres_from,tres_to,wav_from,wav_to,wdl_from,wdl_to, $
	    line1,line2,line3,line4,off,obsn_from,obsn_to,             $
	    grt_from,grt_to,mpos_from,mpos_to,flt,chn,eve,             $
	    spa_from,spa_to,cmpn,obj,res33,observer,obs_mode,sci_obj,  $
            cmd_incl,mir_incl,slt_incl,grt_incl
;
; SELECT CATALOG FILES
;
; read single year file
if N_ELEMENTS(year) eq 1 AND year(0) ne 'All' then begin
   dfile =FINDFILE('../TABLES/*'+year(0)+'*_A.tab')
   dfileB=FINDFILE('../TABLES/*'+year(0)+'*_B.tab')
endif
;
; read multiple years files
if N_ELEMENTS(year) gt 1 AND year(0) ne 'All' then begin
   dfile=STRARR(N_ELEMENTS(year))
   for i=0,N_ELEMENTS(year)-1 do $
        dfile(i) =FINDFILE('../TABLES/*'+year(i)+'*_A.tab')
   ;
   dfileB=STRARR(N_ELEMENTS(year))
   for i=0,N_ELEMENTS(year)-1 do $
        dfileB(i)=FINDFILE('../TABLES/*'+year(i)+'*_B.tab')
endif
;
; read all files
if year(0) eq 'All' then begin
   dfile =FINDFILE('../TABLES/*_A.tab')
   dfileB=FINDFILE('../TABLES/*_B.tab')
endif
if dfile  eq ''  OR dfileB eq '' then begin
   title='Warning'
   text='Database not available for the year '+year
   ans=DIALOG_MESSAGE(text,title=title,resource_name='white')
   return
endif
;
; READ CATALOG TABLES
;
UVCS_READ_TABLE_A,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,     $
             mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos, $
             tai_xobs,delta_t,exptot,wrange,wdelta,               $
             spa_res,dfile
;
UVCS_READ_TABLE_B,fileB,n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,  $
             k_sci_obj,dfileB
;print, '%%% UVCS_SEL_CATALOG: Catalog table B has been loaded from ',dfileB
;
end
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SEARCH_DATA
;
; Inputs:  table loaded into procedure parameters
;	   common search_prm = search parameters
;
; Outputs:
;
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 21 2002, May 14 2002
; Nov 02 2003 bug related to cnt removed
; Mar 11 2004 the wavelength range selection takes into account the
;             second order lines
; Oct 05 2004 inclusive search refinement
;-----------------------------------------------------------------------
pro UVCS_SEARCH_DATA,file,expc,roll,obsn,npan,grt,mirpos,cmdmir,      $
	mirangl,offset,occpos,occwdth,sltpos,sltwdth,fltpos,          $
	tai_xobs,delta_t,exptot,wrange,wdelta,spa_res,                $
	n_cmp_no,n_obj,n_res,n_obser,k_obs_mode,k_sci_obj,            $
	fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,           $
	miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS,   $
	tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,          $
	n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
;
common search_prm,year,da_from,da_to,tm_from,tm_to,pa_from,pa_to,  $
	cmd_from,cmd_to,mir_from,mir_to,slt_from,slt_to,expt_from, $
	expt_to,tres_from,tres_to,wav_from,wav_to,wdl_from,wdl_to, $
	line1,line2,line3,line4,off,obsn_from,obsn_to,             $
	grt_from,grt_to,mpos_from,mpos_to,flt,chn,eve,             $
	spa_from,spa_to,cmpn,obj,res33,observer,obs_mode,sci_obj,  $
        cmd_incl,mir_incl,slt_incl,grt_incl
;
cnt=N_ELEMENTS(file)
;
if N_ELEMENTS(file) eq 0 then return
fileS      = file
expcS      = expc
rollS      = roll
obsnS      = obsn
npanS      = npan
grtS       = grt
mirposS    = mirpos
cmdmirS    = cmdmir
miranglS   = mirangl
offsetS    = offset
occposS    = occpos
occwdthS   = occwdth
sltposS    = sltpos
sltwdthS   = sltwdth
fltposS    = fltpos
tai_xobsS  = tai_xobs
delta_tS   = delta_t
exptotS    = exptot
wrangeS    = wrange
wdeltaS    = wdelta
spa_resS   = spa_res
n_cmp_noS  = n_cmp_no
n_objS     = n_obj
n_resS     = n_res
n_obserS   = n_obser
k_obs_modeS= k_obs_mode
k_sci_objS = k_sci_obj
;
; DATE and TIME
if da_from ne 0 then begin
   ; convert date and time to tai
   UVCS_CONV_DATETIME_TAI,da_from,tm_from,tai_from
   UVCS_CONV_DATETIME_TAI,da_to,tm_to,tai_to
   date_ID = WHERE(tai_xobsS ge tai_from AND tai_xobs le tai_to,cnt)
   ;print,'data & time OK: ',cnt
   if cnt eq 0 then goto,nomatch
   if date_ID(0) ne 0 then $
   if (tai_xobsS(date_ID(0)-1)+delta_tS(date_ID(0)-1)) ge tai_from then $
   date_ID=[date_ID(0)-1,date_ID]
   UVCS_SEL_DATA,date_ID,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; ROLL ANGLE
if pa_from ne 0 then begin
   if pa_from gt pa_to then pa_ID = WHERE(rollS ge pa_from OR rollS le pa_to,cnt) $
   else                     pa_ID = WHERE(rollS ge pa_from AND rollS le pa_to,cnt)
   ; print,'roll OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,pa_ID,                                        $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; COMMANDED MIRROR
if cmd_from ne 0 AND cmd_incl eq 0 then begin
  cmd_ID = WHERE(cmdmirS ge cmd_from AND cmdmirS le cmd_to,cnt)
   ;print,'cmdmir OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,cmd_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;   ; INCLUSIVE
if cmd_from ne 0 AND cmd_incl eq 1 then begin
   tol=0.1  ; tolerance for inclusive search
   text=STRARR(2)
   text(0)='Tolerance for inclusive search'
   tmp=STRMID(STRCOMPRESS(ROUND(tol*10.^(2))/10.^(2),/rem),0, $
   STRPOS(STRCOMPRESS(ROUND(tol*10.^(2))/10.^(2),/rem),'.')+2+1)
   text(1)='on the Commanded Mirror is '+tmp
   ans=DIALOG_MESSAGE(text,resource_name='yellow')
   ;
   list=UNIQ(fileS)
   file_list=fileS(list)
   nfits=N_ELEMENTS(file_list)
   id_incl=0
   for j=0,nfits-1 do begin
      if j eq 0 then id=INDGEN(list(j)+1)
      if j gt 0 then id=list(j-1)+1+INDGEN(list(j)-list(j-1))
      q=WHERE(cmdmirS(id) le cmd_from+tol AND cmdmirS(id) ge cmd_from-tol,cnt1)
      q=WHERE(cmdmirS(id) ge cmd_to  -tol AND cmdmirS(id) le cmd_to  +tol,cnt2)
      if cnt1 ne 0 AND cnt2 ne 0 then id_incl=[id_incl,id]
   endfor
   if N_ELEMENTS(id_incl) eq 1 and id_incl(0) eq 0  then begin
      cnt=0
      goto,nomatch
   endif
   id_incl=id_incl(1:*)
   UVCS_SEL_DATA,id_incl,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
   ;print,'cmdmir inclusive OK: ',cnt
endif
;
; POINTING
if mir_from ne 0 AND mir_incl eq 0 then begin
   pointing=miranglS-offsetS
   mir_ID = WHERE(pointing ge mir_from AND pointing le mir_to,cnt)
   ;print,'mirror pointing OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,mir_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;   ; INCLUSIVE
if mir_from ne 0 AND mir_incl eq 1 then begin
   tol=0.1  ; tolerance for inclusive search
   text=STRARR(2)
   text(0)='Tolerance for inclusive search'
   tmp=STRMID(STRCOMPRESS(ROUND(tol*10.^(2))/10.^(2),/rem),0, $
   STRPOS(STRCOMPRESS(ROUND(tol*10.^(2))/10.^(2),/rem),'.')+2+1)
   text(1)='on the Pointing is '+tmp
   ans=DIALOG_MESSAGE(text,resource_name='yellow')
   ;
   pointing=miranglS-offsetS
   list=UNIQ(fileS)
   file_list=fileS(list)
   nfits=N_ELEMENTS(file_list)
   id_incl=0
   for j=0,nfits-1 do begin
      if j eq 0 then id=INDGEN(list(j)+1)
      if j gt 0 then id=list(j-1)+1+INDGEN(list(j)-list(j-1))
      q=WHERE(pointing(id) le mir_from+tol AND pointing(id) ge mir_from-tol,cnt1)
      q=WHERE(pointing(id) ge mir_to  -tol AND pointing(id) le mir_to  +tol,cnt2)
      if cnt1 ne 0 AND cnt2 ne 0 then id_incl=[id_incl,id]
   endfor
   if N_ELEMENTS(id_incl) eq 1 and id_incl(0) eq 0  then begin
      cnt=0
      goto,nomatch
   endif
   id_incl=id_incl(1:*)
   UVCS_SEL_DATA,id_incl,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
   ;print,'pointing inclusive OK: ',cnt
endif
;
; SLIT WIDTH
if slt_from ne 0 AND slt_incl eq 0 then begin
   slt_ID = WHERE(sltwdthS ge slt_from AND sltwdthS le slt_to,cnt)
   print,'slit OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,slt_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;   ; INCLUSIVE
if slt_from ne 0 AND slt_incl eq 1 then begin
   tol=15.  ; tolerance for inclusive search
   text=STRARR(2)
   text(0)='Tolerance for inclusive search'
   tmp=STRMID(STRCOMPRESS(ROUND(tol*10.^(0))/10.^(0),/rem),0, $
   STRPOS(STRCOMPRESS(ROUND(tol*10.^(0))/10.^(0),/rem),'.')+0+1)
   text(1)='on the Slit Width is '+tmp
   ans=DIALOG_MESSAGE(text,resource_name='yellow')
   ;
   list=UNIQ(fileS)
   file_list=fileS(list)
   nfits=N_ELEMENTS(file_list)
   id_incl=0
   for j=0,nfits-1 do begin
      if j eq 0 then id=INDGEN(list(j)+1)
      if j gt 0 then id=list(j-1)+1+INDGEN(list(j)-list(j-1))
      q=WHERE(sltwdthS(id) le slt_from+tol AND sltwdthS(id) ge slt_from-tol,cnt1)
      q=WHERE(sltwdthS(id) ge slt_to  -tol AND sltwdthS(id) le slt_to  +tol,cnt2)
      if cnt1 ne 0 AND cnt2 ne 0 then id_incl=[id_incl,id]
   endfor
   if N_ELEMENTS(id_incl) eq 1 and id_incl(0) eq 0  then begin
      cnt=0
      goto,nomatch
   endif
   id_incl=id_incl(1:*)
   UVCS_SEL_DATA,id_incl,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
   ;print,'slit width inclusive OK: ',cnt
endif
;
; TOTAL EXPOSURE TIME
if expt_from ne 0 then begin
   expt_ID = WHERE(exptotS ge expt_from AND exptotS le expt_to,cnt)
   ;print,'total exposure time OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,expt_ID,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; TIME RESOLUTION (single exposure time)
if tres_from ne 0 then begin
   tres_ID = WHERE(delta_tS ge tres_from AND delta_tS le tres_to,cnt)
   ;print,'time resolution OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,tres_ID,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; WAVEL RANGE (with all binnings)
if wav_from ne 0 AND wdl_from eq 0 then begin
   ; takes into account the second order lines  - Mar 2004
   if wav_from le 900. then  wav_from=wav_from*2.
   if wav_to   le 900. then  wav_to  =wav_to*2.
   ;
   ; Check wavel range in every panel
   wav_ID0 = WHERE(wrangeS(*,0,0) le wav_from AND wrangeS(*,1,0) ge wav_to,cnt0)
   wav_ID1 = WHERE(wrangeS(*,0,1) le wav_from AND wrangeS(*,1,1) ge wav_to,cnt1)
   wav_ID2 = WHERE(wrangeS(*,0,2) le wav_from AND wrangeS(*,1,2) ge wav_to,cnt2)
   wav_ID3 = WHERE(wrangeS(*,0,3) le wav_from AND wrangeS(*,1,3) ge wav_to,cnt3)
   wav_ID4 = WHERE(wrangeS(*,0,4) le wav_from AND wrangeS(*,1,4) ge wav_to,cnt4)
   wav_ID5 = WHERE(wrangeS(*,0,5) le wav_from AND wrangeS(*,1,5) ge wav_to,cnt5)
   ;print,'wavel range in pan 0  OK: ',cnt0
   ;print,'wavel range in pan 1  OK: ',cnt1
   ;print,'wavel range in pan 2  OK: ',cnt2
   ;print,'wavel range in pan 3  OK: ',cnt3
   ;print,'wavel range in pan 4  OK: ',cnt4
   ;print,'wavel range in pan 5  OK: ',cnt5
   wav_ID=[wav_ID0,wav_ID1,wav_ID2,wav_ID3,wav_ID4,wav_ID5]
   if MAX(wav_ID) ne -1 then begin
      wav_ID=wav_ID(WHERE(wav_ID ne -1))
      wav_ID=wav_ID(SORT(wav_ID))
      ;print,'wavel range OK: ',N_ELEMENTS(wav_ID)
      UVCS_SEL_DATA,wav_ID,                                       $
      fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
      miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
      tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
      n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
   endif else begin
      ;print,'wavel range OK: 0'
      cnt=0
      goto,nomatch
   endelse
endif
;
; WAVEL BINNING  (in all wavel ranges)
if wdl_from ne 0 AND wav_from eq 0 then begin
   ;
   ; Check wavel binning in every panel
   wdl_ID0 = WHERE(wdeltaS(*,0) ge wdl_from AND wdeltaS(*,0) le wdl_to,cnt0)
   wdl_ID1 = WHERE(wdeltaS(*,1) ge wdl_from AND wdeltaS(*,1) le wdl_to,cnt1)
   wdl_ID2 = WHERE(wdeltaS(*,2) ge wdl_from AND wdeltaS(*,2) le wdl_to,cnt2)
   wdl_ID3 = WHERE(wdeltaS(*,3) ge wdl_from AND wdeltaS(*,3) le wdl_to,cnt3)
   wdl_ID4 = WHERE(wdeltaS(*,4) ge wdl_from AND wdeltaS(*,4) le wdl_to,cnt4)
   wdl_ID5 = WHERE(wdeltaS(*,5) ge wdl_from AND wdeltaS(*,5) le wdl_to,cnt5)
   ;print,'wavel binning in pan 0  OK: ',cnt0
   ;print,'wavel binning in pan 1  OK: ',cnt1
   ;print,'wavel binning in pan 2  OK: ',cnt2
   ;print,'wavel binning in pan 3  OK: ',cnt3
   ;print,'wavel binning in pan 4  OK: ',cnt4
   ;print,'wavel binning in pan 5  OK: ',cnt5
   wdl_ID=[wdl_ID0,wdl_ID1,wdl_ID2,wdl_ID3,wdl_ID4,wdl_ID5]
   if MAX(wdl_ID) ne -1 then begin
      wdl_ID=wdl_ID(WHERE(wdl_ID ne -1))
      wdl_ID=wdl_ID(UNIQ(wdl_ID,SORT(wdl_ID)))
      ;print,'wavel binning OK: ',N_ELEMENTS(wdl_ID)
      UVCS_SEL_DATA,wdl_ID,                                       $
      fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
      miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
      tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
      n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
   endif else begin
      ;print,'wavel binning OK: 0'
      cnt=0
      goto,nomatch
   endelse
endif
;
; WAVEL RANGE AND BINNING
if wav_from ne 0 AND wdl_from ne 0 then begin
   ; Check wavel range and binning in every panel
   wavdl_ID0 = WHERE(wrangeS(*,0,0) le wav_from AND wrangeS(*,1,0) ge wav_to AND $
                     wdeltaS(*,0)   ge wdl_from AND wdeltaS(*,0)   le wdl_to,cnt0)
   wavdl_ID1 = WHERE(wrangeS(*,0,1) le wav_from AND wrangeS(*,1,1) ge wav_to AND $
		     wdeltaS(*,1) ge wdl_from AND wdeltaS(*,1) le wdl_to,cnt1)
   wavdl_ID2 = WHERE(wrangeS(*,0,2) le wav_from AND wrangeS(*,1,2) ge wav_to AND $
		     wdeltaS(*,2) ge wdl_from AND wdeltaS(*,2) le wdl_to,cnt2)
   wavdl_ID3 = WHERE(wrangeS(*,0,3) le wav_from AND wrangeS(*,1,3) ge wav_to AND $
		     wdeltaS(*,3) ge wdl_from AND wdeltaS(*,3) le wdl_to,cnt3)
   wavdl_ID4 = WHERE(wrangeS(*,0,4) le wav_from AND wrangeS(*,1,4) ge wav_to AND $
		     wdeltaS(*,4) ge wdl_from AND wdeltaS(*,4) le wdl_to,cnt4)
   wavdl_ID5 = WHERE(wrangeS(*,0,5) le wav_from AND wrangeS(*,1,5) ge wav_to AND $
		     wdeltaS(*,5) ge wdl_from AND wdeltaS(*,5) le wdl_to,cnt5)
   ;print,'wavel range and binning in pan 0  OK: ',cnt0
   ;print,'wavel range and binning in pan 1  OK: ',cnt1
   ;print,'wavel range and binning in pan 2  OK: ',cnt2
   ;print,'wavel range and binning in pan 3  OK: ',cnt3
   ;print,'wavel range and binning in pan 4  OK: ',cnt4
   ;print,'wavel range and binning in pan 5  OK: ',cnt5
   wavdl_ID=[wavdl_ID0,wavdl_ID1,wavdl_ID2,wavdl_ID3,wavdl_ID4,wavdl_ID5]
   if MAX(wavdl_ID) ne -1 then begin
      wavdl_ID=wavdl_ID(WHERE(wavdl_ID ne -1))
      wavdl_ID=wavdl_ID(SORT(wavdl_ID))
      ;print,'wavel range and binning OK: ',N_ELEMENTS(wavdl_ID)
      UVCS_SEL_DATA,wavdl_ID,                                     $
      fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
      miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
      tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
      n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
   endif else begin
      ;print,'wavel range and binning OK: 0'
      cnt=0
      goto,nomatch
   endelse
endif
;
; SPATIAL RESOLUTION
if spa_from ne 0 then begin
   ;print,'%% UVCS_SEARCH_DATA  spa_from =',spa_from
   spa_ID = WHERE(spa_resS ge spa_from AND spa_resS le spa_to,cnt)
   ;print,'%% UVCS_SEARCH_DATA  spatial resolution OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,spa_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; SELECT SPECTRAL LINE
;
if MAX([line1,line2,line3,line4]) ne 0 then begin
   ;
   lline1 =['HILya','OVI1032','OVI1037','HILyb']
   lline2 =['SiXII499','SiXII521','MgX610','NV1239']
   lline3 =['FeXII1242','SX1196','SiIII1206','CIII977']
   lline4 =['FeXVIII','HILyg973','HeI512','HeI516']
   lines  =[lline1,lline2,lline3,lline4]
   wav_ref1=[1215.67,1031.91,1037.61,1025.72]
   wav_ref2=[499.37*2.,520.66*2.,609.76*2.,1238.82]
   wav_ref3=[1242.    ,1196.   ,1206.      ,977.]
   wav_ref4=[974.86,972.54,512.09*2.,515.6*2.]
   wav_ref=[wav_ref1,wav_ref2,wav_ref3,wav_ref4]
   line_YN=[line1,line2,line3,line4]
   ;
   li=WHERE(line_YN eq 1)
   lines =lines(li)
   wav_ref=wav_ref(li)
   ;print, 'lines : ',lines
   ;print, 'wav_ref : ',wav_ref
   ;
   ;   SPECTRAL LINE (with all binnings)
   ;
   if wdl_from eq 0 then begin
      ; Loop over selected lines
      for j=0,N_ELEMENTS(lines)-1 do begin
         ; Check line in every panel
         wav_ID0 = WHERE(wrangeS(*,0,0) le wav_ref(j) AND wrangeS(*,1,0) ge wav_ref(j),cnt0)
         wav_ID1 = WHERE(wrangeS(*,0,1) le wav_ref(j) AND wrangeS(*,1,1) ge wav_ref(j),cnt1)
         wav_ID2 = WHERE(wrangeS(*,0,2) le wav_ref(j) AND wrangeS(*,1,2) ge wav_ref(j),cnt2)
         wav_ID3 = WHERE(wrangeS(*,0,3) le wav_ref(j) AND wrangeS(*,1,3) ge wav_ref(j),cnt3)
         wav_ID4 = WHERE(wrangeS(*,0,4) le wav_ref(j) AND wrangeS(*,1,4) ge wav_ref(j),cnt4)
         wav_ID5 = WHERE(wrangeS(*,0,5) le wav_ref(j) AND wrangeS(*,1,5) ge wav_ref(j),cnt5)
         ;print,lines(j),' in pan 0  OK: ',cnt0
         ;print,lines(j),' in pan 1  OK: ',cnt1
         ;print,lines(j),' in pan 2  OK: ',cnt2
         ;print,lines(j),' in pan 3  OK: ',cnt3
         ;print,lines(j),' in pan 4  OK: ',cnt4
         ;print,lines(j),' in pan 5  OK: ',cnt5
         wav_ID=[wav_ID0,wav_ID1,wav_ID2,wav_ID3,wav_ID4,wav_ID5]
         if MAX(wav_ID) ne -1 then begin
            wav_ID=wav_ID(WHERE(wav_ID ne -1))
            wav_ID=wav_ID(SORT(wav_ID))
            ;print,lines(j),' OK: ',N_ELEMENTS(wav_ID)
            UVCS_SEL_DATA,wav_ID,                                       $
            fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
            miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
            tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
            n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
         endif else begin
            ;print,lines(j),' OK: 0'
            cnt=0
            goto,nomatch
         endelse
      endfor
      ;
      ;   SPECTRAL LINE AND BINNING
      ;
   endif else begin
      ; Loop over selected lines
      for j=0,N_ELEMENTS(lines)-1 do begin
         ; Check wavel range and binning in every panel
         wavdl_ID0 = WHERE(wrangeS(*,0,0) le wav_ref(j) AND wrangeS(*,1,0) ge wav_ref(j) AND $
                           wdeltaS(*,0)   ge wdl_from AND wdeltaS(*,0)   le wdl_to,cnt0)
         wavdl_ID1 = WHERE(wrangeS(*,0,1) le wav_ref(j) AND wrangeS(*,1,1) ge wav_ref(j) AND $
		           wdeltaS(*,1) ge wdl_from AND wdeltaS(*,1) le wdl_to,cnt1)
         wavdl_ID2 = WHERE(wrangeS(*,0,2) le wav_ref(j) AND wrangeS(*,1,2) ge wav_ref(j) AND $
		           wdeltaS(*,2) ge wdl_from AND wdeltaS(*,2) le wdl_to,cnt2)
         wavdl_ID3 = WHERE(wrangeS(*,0,3) le wav_ref(j) AND wrangeS(*,1,3) ge wav_ref(j) AND $
		           wdeltaS(*,3) ge wdl_from AND wdeltaS(*,3) le wdl_to,cnt3)
         wavdl_ID4 = WHERE(wrangeS(*,0,4) le wav_ref(j) AND wrangeS(*,1,4) ge wav_ref(j) AND $
		           wdeltaS(*,4) ge wdl_from AND wdeltaS(*,4) le wdl_to,cnt4)
         wavdl_ID5 = WHERE(wrangeS(*,0,5) le wav_ref(j) AND wrangeS(*,1,5) ge wav_ref(j) AND $
		           wdeltaS(*,5) ge wdl_from AND wdeltaS(*,5) le wdl_to,cnt5)
         ;print,lines(j),' and binning in pan 0  OK: ',cnt0
         ;print,lines(j),' and binning in pan 1  OK: ',cnt1
         ;print,lines(j),' and binning in pan 2  OK: ',cnt2
         ;print,lines(j),' and binning in pan 3  OK: ',cnt3
         ;print,lines(j),' and binning in pan 4  OK: ',cnt4
         ;print,lines(j),' and binning in pan 5  OK: ',cnt5
         wavdl_ID=[wavdl_ID0,wavdl_ID1,wavdl_ID2,wavdl_ID3,wavdl_ID4,wavdl_ID5]
         if MAX(wavdl_ID) ne -1 then begin
            wavdl_ID=wavdl_ID(WHERE(wavdl_ID ne -1))
            wavdl_ID=wavdl_ID(SORT(wavdl_ID))
            ;print,lines(j),' and binning OK: ',N_ELEMENTS(wavdl_ID)
            UVCS_SEL_DATA,wavdl_ID,                                     $
            fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
            miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
            tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
            n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
         endif else begin
            ;print,lines(j),' and binning OK: 0'
            cnt=0
            goto,nomatch
         endelse
      endfor
   endelse
endif else begin
   lines='All'
endelse
;
; OFFSET POINTING
if off ne 2 then begin
   if off eq 0 then off_ID = WHERE(ABS(offsetS) le 0.01,cnt)
   if off eq 1 then off_ID = WHERE(ABS(offsetS) gt 0.01,cnt)
   ;print,'offset OK: ',N_ELEMENTS(off_ID)
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,off_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; ONUM
if obsn_from ne 0 then begin
   onum_ID = WHERE(obsnS ge obsn_from AND obsnS le obsn_to,cnt)
   ;print,'ONUM OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,onum_ID,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; GRATING POSITION
if grt_from ne 0 AND grt_incl eq 0 then begin
   grt_ID = WHERE(grtS ge grt_from AND grtS le grt_to,cnt)
   ;print,'grating OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,grt_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;   ; INCLUSIVE
if grt_from ne 0 AND grt_incl eq 1 then begin
   tol=10000.  ; tolerance for inclusive search
   text=STRARR(2)
   text(0)='Tolerance for inclusive search'
   tmp=STRMID(STRCOMPRESS(ROUND(tol*10.^(0))/10.^(0),/rem),0, $
   STRPOS(STRCOMPRESS(ROUND(tol*10.^(0))/10.^(0),/rem),'.')+0+1)
   text(1)='on the Grating Position is '+tmp
   ans=DIALOG_MESSAGE(text,resource_name='yellow')
   ;
   list=UNIQ(fileS)
   file_list=fileS(list)
   nfits=N_ELEMENTS(file_list)
   id_incl=0
   for j=0,nfits-1 do begin
      if j eq 0 then id=INDGEN(list(j)+1)
      if j gt 0 then id=list(j-1)+1+INDGEN(list(j)-list(j-1))
      q=WHERE(grtS(id) le grt_from+tol AND grtS(id) ge grt_from-tol,cnt1)
      q=WHERE(grtS(id) ge grt_to  -tol AND grtS(id) le grt_to  +tol,cnt2)
      if cnt1 ne 0 AND cnt2 ne 0 then id_incl=[id_incl,id]
   endfor
   if N_ELEMENTS(id_incl) eq 1 and id_incl(0) eq 0  then begin
      cnt=0
      goto,nomatch
   endif
   id_incl=id_incl(1:*)
   UVCS_SEL_DATA,id_incl,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
   ;print,'grating inclusive OK: ',cnt
endif
;
; MIRROR POSITION
if mpos_from ne 0 then begin
   mpos_ID = WHERE(mirposS ge mpos_from AND mirposS le mpos_to,cnt)
   ;print,'mirror position OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,mpos_ID,                                      $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; CAMPAIGN NUMBER
if cmpn ne 0 then begin
   ;print,'%% UVCS_SEARCH_DATA cmpn ',cmpn
   cmp_ID = WHERE(n_cmp_noS eq cmpn,cnt)
   ;print,'%% UVCS_SEARCH_DATA campaign number OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,cmp_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; OBJECT
if obj ne '' then begin
   ;print,'%% UVCS_SEARCH_DATA obj ',obj
   obj_ID = WHERE(STRTRIM(n_objS,2) eq obj,cnt)
   ;print,'%% UVCS_SEARCH_DATA object OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,obj_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; RESULTS DAS33
if res33 ne '' then begin
   ;print,'%% UVCS_SEARCH_DATA res33 ',res33
   res33_ID = WHERE(STRTRIM(n_resS,2) eq res33,cnt)
   ;print,'%% UVCS_SEARCH_DATA Results (?) OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,res33_ID,                                     $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; OBSERVER
if observer ne '' then begin
   ;print,'%% UVCS_SEARCH_DATA observer ',observer
   observer_ID = WHERE(STRCOMPRESS(n_obserS,/rem) eq observer,cnt)
   ;print,'%% UVCS_SEARCH_DATA observer OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,observer_ID,                                  $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; OBS MODE
if obs_mode ne '' then begin
   ;print,'%% UVCS_SEARCH_DATA obs_mode ',obs_mode
   obs_mode_ID = WHERE(STRCOMPRESS(k_obs_modeS,/rem) eq obs_mode,cnt)
   ;print,'%% UVCS_SEARCH_DATA obs_mode OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,obs_mode_ID,                                  $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; SCI OBJ
if sci_obj ne '' then begin
   sci_obj_ID = WHERE(STRTRIM(k_sci_objS,2) eq sci_obj,cnt)
   ;print,'%% UVCS_SEARCH_DATA sci_obj OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,sci_obj_ID,                                   $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; FILTER
if flt ne 0 then begin
   flt_ID = WHERE(fltposS eq flt,cnt)
   ;print,'filter OK: ',cnt
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,flt_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; CHANNEL
if chn ne 2 then begin
   if chn eq 0 then chn_str='lya'
   if chn eq 1 then chn_str='ovi'
   qq=STRPOS(fileS,chn_str)
   chn_ID = WHERE(qq ne -1,cnt)
   ;print,'channel OK: ',N_ELEMENTS(chn_ID)
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,chn_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
; EVENTS
if eve(0) ne 'All' then begin
   ;
   UVCS_SEARCH_EVE,fileS,txt_eve
   ;
   ; CME only
   if eve(0) eq 'CMEs' then $
   cme_ID = WHERE(txt_eve eq 'CME',cnt)
   ;
   ; Comet only
   if eve(0) eq 'Comets' then $
   cme_ID = WHERE(txt_eve eq 'Comet',cnt)
   ;
   ; Star only
   if eve(0) eq 'Stars' then $
   cme_ID = WHERE(txt_eve eq 'Star',cnt)
   ;
   ; CME Comet and Star
   if N_ELEMENTS(eve) eq 3 then begin
     if eve(0) eq 'CMEs' AND eve(1) eq 'Comets' AND eve(2) eq 'Stars' then $
     cme_ID = WHERE(txt_eve eq 'CME' or txt_eve eq 'Comet' or txt_eve eq 'Star',cnt)
   endif
   ;
   ; CME and Comet
   if N_ELEMENTS(eve) eq 2 then begin
     if eve(0) eq 'CMEs' AND eve(1) eq 'Comets' then $
     cme_ID = WHERE(txt_eve eq 'CME' or txt_eve eq 'Comet',cnt)
   endif
   ;
   ; CME and Star
   if N_ELEMENTS(eve) eq 2 then begin
     if eve(0) eq 'CMEs' AND eve(1) eq 'Stars' then $
     cme_ID = WHERE(txt_eve eq 'CME' or txt_eve eq 'Star',cnt)
   endif
   ;
   ; Comet and Star
   if N_ELEMENTS(eve) eq 2 then begin
     if eve(0) eq 'Comets' AND eve(1) eq 'Stars' then $
     cme_ID = WHERE(txt_eve eq 'Comet' or txt_eve eq 'Star',cnt)
   endif
   ;
   if cnt eq 0 then goto,nomatch
   UVCS_SEL_DATA,cme_ID,                                       $
   fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
   miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
   tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
   n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
endif
;
nomatch:
if cnt eq 0 then begin
   fileS=''
endif
;
end
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SEL_DATA
;
; Purpose: Select data from table A
;
; Inputs: sel: index of data to select
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 21 2002
;-----------------------------------------------------------------------
pro UVCS_SEL_DATA,sel,                                              $
	fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
	miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
	tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
        n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
;
fileS      = fileS(sel)
expcS      = expcS(sel)
rollS      = rollS(sel)
obsnS      = obsnS(sel)
npanS      = npanS(sel)
grtS       = grtS(sel)
mirposS    = mirposS(sel)
cmdmirS    = cmdmirS(sel)
miranglS   = miranglS(sel)
offsetS    = offsetS(sel)
occposS    = occposS(sel)
occwdthS   = occwdthS(sel)
sltposS    = sltposS(sel)
sltwdthS   = sltwdthS(sel)
fltposS    = fltposS(sel)
tai_xobsS  = LONG(tai_xobsS(sel))
delta_tS   = delta_tS(sel)
exptotS    = exptotS(sel)
wrangeS    = wrangeS(sel,*,*)
wdeltaS    = wdeltaS(sel,*)
spa_resS   = spa_resS(sel)
n_cmp_noS  = n_cmp_noS(sel)
n_objS     = n_objS(sel)
n_resS     = n_resS(sel)
n_obserS   = n_obserS(sel)
k_obs_modeS= k_obs_modeS(sel)
k_sci_objS = k_sci_objS(sel)
;
return
end
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_CONV_DATETIME_TAI
;
; convert DATE (yyyymmdd) and time (hhmm) to TAI
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 22 2002
;-----------------------------------------------------------------------
pro UVCS_CONV_DATETIME_TAI,da,tm,tai
;
da_str=STRCOMPRESS(da,/rem)
tm_str=STRCOMPRESS(tm,/rem)
if tm lt 1000 then tm_str='0'+tm_str
if tm lt 100  then tm_str='00'+tm_str
if tm lt 10   then tm_str='000'+tm_str
;
year = STRMID(da_str,0,4)
nmon = STRMID(da_str,4,2)
day  = STRMID(da_str,6,2)
hour = STRMID(tm_str,0,2)
minu=  STRMID(tm_str,2,2)
;
year = FIX(year)
nmon = FIX(nmon)
day  = FIX(day)
hour = FIX(hour)
minu = FIX(minu)
sec  = 00
;
nmon=nmon-1
ngg =[31,    28,   31,   30,   31,   30,   31,   31,   30,   31,   30,   31]
;
; calcolo # gg passati interamente dall'inizio dell'anno  (doy)
if nmon ge 2 AND year/4. eq year/4 AND  year ne 2000 then ngg(1)=29
if nmon eq 0 then doy = day-1
if nmon ge 1 then doy = TOTAL(ngg(0:nmon-1)) +(day-1)
;print,'doy = ',doy
;
; calcolo il # gg negli anni completamente passati dal 1-JAN-1958
nbis=ROUND((year-1958)/4.-0.1)          ; numero di anni bisestili
ydoy = (year-1958)*365 + nbis
;print,'ydoy = ',ydoy
;
; # secondi trascorsi dal 1-JAN-1958
tai=LONG(sec) + LONG(minu*60.) + LONG(hour*60.*60.)+ LONG((ydoy+doy)*24.*60.*60.)
;print,' tai = ',LONG(tai)
;
end
;
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_CONV_TAI_DATETIME
;
; convert TAI to DATE (YYYY-MM-DD HH:MM:SS)
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 22 2002
; May 14 2002
;-----------------------------------------------------------------------
pro UVCS_CONV_TAI_DATETIME,tai,date
;
mesi=['JAN','FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC']
ngg =[31,    28,   31,   30,   31,   30,   31,   31,   30,   31,   30,   31]
tai_sg=LONG(tai)-LONG(30)       ; aggiustamento casalingo
;
; calcolo il numero di giorni totalmente trascorsi dal  1-JAN-1958
tdoy=FIX(LONG(tai_sg)/(60.*60.*24.))
;
; calcolo la data dell'osservazione
inizio=JULDAY(1,1,1958,00,00,00)
oggi=tdoy+inizio
CALDAT,oggi,Mo,Da,Ye
;
; calcolo l'ora  dell'osservazione
nho=FIX((LONG(tai_sg)-LONG(tdoy*24.*60.*60.))/(60.*60.))
;
; calcolo i minuti dell'osservazione
nmin=FIX((LONG(tai_sg)-LONG(tdoy*24.*60.*60.)-LONG(nho*60.*60.))/60.)
;
; calcolo i secondi residui
nsec=FIX(LONG(tai_sg)-LONG(tdoy*24.*60.*60.)-LONG(nho*60.*60.)-LONG(nmin*60.))
;
; costruisco un vettore con la data
if Mo lt 10 then Mo ='0'+STRCOMPRESS(Mo,/rem) $
else Mo  =STRCOMPRESS(Mo,/rem)
if Da lt 10 then Da ='0'+STRCOMPRESS(Da,/rem) $
else Da  =STRCOMPRESS(Da,/rem)
Ye  =STRCOMPRESS(Ye,/rem)
if nho lt 10 then nho ='0'+STRCOMPRESS(nho,/rem) $ $
else nho =STRCOMPRESS(nho,/rem)
if nmin lt 10 then nmin ='0'+STRCOMPRESS(nmin,/rem) $ $
else nmin =STRCOMPRESS(nmin,/rem)
if nsec lt 10 then nsec ='0'+STRCOMPRESS(nsec,/rem) $
else nsec =STRCOMPRESS(nsec,/rem)
date=Ye+'-'+Mo+'-'+Da+' '+nho+':'+nmin+':'+nsec
;
end
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SHOW_RESULTS
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 22 2002
;-----------------------------------------------------------------------
pro UVCS_SHOW_RESULTS,dfile,                                         $
          fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,        $
          miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS,$
          tai_xobsS,delta_tS, exptotS,wrangeS,wdeltaS,               $
          spa_resS,n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,     $
	  k_sci_objS,txt_prm,txt_res,nfits,txt_eve
;
common search_prm,year,da_from,da_to,tm_from,tm_to,pa_from,pa_to,      $
            cmd_from,cmd_to,mir_from,mir_to,slt_from,slt_to,expt_from, $
            expt_to,tres_from,tres_to,wav_from,wav_to,wdl_from,wdl_to, $
	    line1,line2,line3,line4,off,obsn_from,obsn_to,             $
	    grt_from,grt_to,mpos_from,mpos_to,flt,chn,eve,             $
	    spa_from,spa_to,cmpn,obj,res33,observer,obs_mode,sci_obj,  $
            cmd_incl,mir_incl,slt_incl,grt_incl
;
; Parameters
txt_prm='Year  '+year
if flt eq 1 then txt_prm=[txt_prm,'filter Not engaged']
if flt eq 2 then txt_prm=[txt_prm,'filter engaged']
if chn eq 0 then txt_prm=[txt_prm,'LYA Channel Only']
if chn eq 1 then txt_prm=[txt_prm,'OVI Channel Only']
if off eq 0 then txt_prm=[txt_prm,'Pointing with no offset']
if off eq 1 then txt_prm=[txt_prm,'Pointing with offset']
txt_prm=[txt_prm,'               from     to']
if da_from   ne 0 then txt_prm=[txt_prm,'Date:          ' $
        +STRCOMPRESS(da_from,/rem)+' - '+STRCOMPRESS(da_to,/rem)]
if tm_from   ne 0 then txt_prm=[txt_prm,'Time:          ' $
        +STRCOMPRESS(tm_from,/rem)+' - '+STRCOMPRESS(tm_to,/rem)]
if pa_from   ne 0 then txt_prm=[txt_prm,'Roll:          ' $
        +STRCOMPRESS(pa_from,/rem)+' - '+STRCOMPRESS(pa_to,/rem)]
if cmd_incl eq 1 then incl='INCL' else incl=''
if cmd_from  ne 0 then txt_prm=[txt_prm,'Mirror cmd:    ' $
        +APPROX_CAT(cmd_from,2,STR='YES')+' - '+APPROX_CAT(cmd_to,2,STR='YES')+'  '+incl]
if mir_incl eq 1 then incl='INCL' else incl=''
if mir_from  ne 0 then txt_prm=[txt_prm,'Pointing:      ' $
        +APPROX_CAT(mir_from,2,STR='YES')+' - '+APPROX_CAT(mir_to,2,STR='YES')+'  '+incl]
if slt_incl eq 1 then incl='INCL' else incl=''
if slt_from  ne 0 then txt_prm=[txt_prm,'Slit width:    ' $
        +STRCOMPRESS(slt_from,/rem)+' - '+STRCOMPRESS(slt_to,/rem)+'  '+incl]
if expt_from ne 0 then txt_prm=[txt_prm,'Expos. Time:   ' $
        +STRCOMPRESS(expt_from,/rem)+' - '+STRCOMPRESS(expt_to,/rem)]
if tres_from ne 0 then txt_prm=[txt_prm,'Time Resolut.: ' $
        +STRCOMPRESS(tres_from,/rem)+' - '+STRCOMPRESS(tres_to,/rem)]
if wav_from  ne 0 then txt_prm=[txt_prm,'Wavel Range:   ' $
        +STRCOMPRESS(wav_from,/rem)+' - '+STRCOMPRESS(wav_to,/rem)]
if wdl_from  ne 0 then txt_prm=[txt_prm,'Wavel Binning: ' $
        +STRCOMPRESS(wdl_from,/rem)+' - '+STRCOMPRESS(wdl_to,/rem)]
if obsn_from ne 0 then txt_prm=[txt_prm,'ONUM:          ' $
        +STRCOMPRESS(obsn_from,/rem)+' - '+STRCOMPRESS(obsn_to,/rem)]
if grt_incl eq 1 then incl='INCL' else incl=''
if grt_from  ne 0 then txt_prm=[txt_prm,'Grating pos.:  ' $
        +STRCOMPRESS(grt_from,/rem)+' - '+STRCOMPRESS(grt_to,/rem)+'  '+incl]
if mpos_from ne 0 then txt_prm=[txt_prm,'Mirror pos.:   ' $
        +STRCOMPRESS(mpos_from,/rem)+' - '+STRCOMPRESS(mpos_to,/rem)]
if spa_from  ne 0 then txt_prm=[txt_prm,'Spatial Res.:  ' $
        +STRCOMPRESS(spa_from,/rem)+' - '+STRCOMPRESS(spa_to,/rem)]
if cmpn ne 0      then txt_prm=[txt_prm,'Campaign Number : '+STRCOMPRESS(cmpn,/rem)]
if obj ne ''      then txt_prm=[txt_prm,'Object :  '+obj]
if res33 ne ''    then txt_prm=[txt_prm,'Results (?) :  '+res33]
if observer ne '' then txt_prm=[txt_prm,'Observer  :  '+observer]
if obs_mode ne '' then txt_prm=[txt_prm,'Obs Mode  :  '+obs_mode]
if sci_obj  ne '' then txt_prm=[txt_prm,'Sci Obj   :  '+sci_obj]
;
; Spectral Lines
aline1=['HILya','OVI1032','OVI1037','HILyb','SiXII499','SiXII521']
aline2=['MgX610','NV1239','FeXII1242','SX1196','SiIII1206']
aline3=['CIII977','FeXVIII','HILyg973','HeI512','HeI516']
aline=[aline1,aline2,aline3]

lineid=[line1,line2,line3,line4]
q=WHERE(lineid ne 0,cnt)
;
if cnt ne 0 then begin
   lines=aline(q)
   txt_prm=[txt_prm,'Spectral lines :  '+STRJOIN(lines,' ')]
endif
;
; Events
if eve(0) ne 'All' then txt_prm=[txt_prm,'Events :  '+STRJOIN(eve,' ')]
;
; Filename,  Records Number and Event Flag
if fileS(0) ne '' then begin
   list=UNIQ(fileS)
   file_list=fileS(list)
   nfits=N_ELEMENTS(file_list)
   nrec=INTARR(nfits)
   nrec(0) = list(0)+1
   if N_ELEMENTS(file_list) gt 1 then begin
      for j=1,nfits-1 do nrec(j) = list(j)-list(j-1)
   endif
   txt_res=''
   ;
   ; Events CME, Comets, Stars
   file_eve=txt_eve(list)
   ;
   ;print,'Show Results ',SYSTIME()
   tit='Display Results'
   progr_msg='Records Loaded'
   PROGRESS_BAR_SG,nfits-1,tit,progr_msg,bar_frq,bar,STAGE='Start',bcnt
   for j=0,nfits -1 do begin
      PROGRESS_BAR_SG,nfits-1,tit,progr_msg,bar_frq,bar,STAGE='Loop',bcnt,j
      if FIX(nrec(j)) lt 10 then $
      txt_res=[txt_res,file_list(j)+'    '+STRCOMPRESS(FIX(nrec(j)),/rem) $
               +'     '+file_eve(j)]
      if FIX(nrec(j)) ge 10 then $
      txt_res=[txt_res,file_list(j)+'   '+STRCOMPRESS(FIX(nrec(j)),/rem) $
               +'     '+file_eve(j)]
   endfor
   PROGRESS_BAR_SG,nfits-1,tit,progr_msg,bar_frq,bar,STAGE='End'
   ;print,'Results Displayed ',SYSTIME()
endif else begin
   nfits=0
   txt_res=['      No Results      ','Matching Search Parameters']
endelse
end
;
;
;-----------------------------------------------------------------------
;               Procedure    UVCS_PRINT_RESULTS
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; ??? 2002
; Nov 21 2002  lpr command
;-----------------------------------------------------------------------
pro UVCS_PRINT_RESULTS,txt_prm,txt_res
;
openw,1,'tmp.txt'
printf,1,'  Selected Parameters'
printf,1,''
for j=0,N_ELEMENTS(txt_prm)-1 do printf,1,txt_prm(j)
printf,1,''
printf,1,'   List of FITS:           Records  Event'
for j=0,N_ELEMENTS(txt_res)-1 do printf,1,txt_res(j)
close,1
spawn,'lpr tmp.txt'
spawn,'rm -f tmp.txt'
;
end
;
;
;-----------------------------------------------------------------------
;               Procedure    UVCS_SAVE_RESULTS
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; ??? 2002
; Oct 02 2002
;-----------------------------------------------------------------------
pro UVCS_SAVE_RESULTS,txt_prm,txt_res
;
tmp=DIR_EXIST('../SRCH_RES/')
if tmp eq 0 then spawn,'mkdir ../SRCH_RES/'
;
rfile = DIALOG_PICKFILE(FILE='results',PATH='../SRCH_RES/', $
        FILTER='../SRCH_RES/',/WRITE, $
        TITLE='Select Results Filename to Save')
if rfile eq '' then return
openw,1,rfile
printf,1,'  Selected Parameters'
printf,1,''
for j=0,N_ELEMENTS(txt_prm)-1 do printf,1,txt_prm(j)
printf,1,''
printf,1,'   List of FITS:           Records  Event'
for j=0,N_ELEMENTS(txt_res)-1 do printf,1,txt_res(j)
close,1
;
end
;
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SHOW_DETAILS
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Mar 24 2002
; Nov 21 2002 take into account the offset
; Oct 12 2005 +offset insted of -offset
;-----------------------------------------------------------------------
pro UVCS_SHOW_DETAILS,sfile,                                                 $
                 fileS,expcS,rollS,obsnS,npanS,grtS,mirposS,cmdmirS,         $
              	 miranglS,offsetS,occposS,occwdthS,sltposS,sltwdthS,fltposS, $
              	 tai_xobsS,delta_tS,exptotS,wrangeS,wdeltaS,spa_resS,        $
                 n_cmp_noS,n_objS,n_resS,n_obserS,k_obs_modeS,k_sci_objS
;
file_ID=WHERE(fileS eq sfile(0))
fileSS      = fileS
expcSS      = expcS
rollSS      = rollS
obsnSS      = obsnS
npanSS      = npanS
grtSS       = grtS
mirposSS    = mirposS
cmdmirSS    = cmdmirS
miranglSS   = miranglS
offsetSS    = offsetS
occposSS    = occposS
occwdthSS   = occwdthS
sltposSS    = sltposS
sltwdthSS   = sltwdthS
fltposSS    = fltposS
tai_xobsSS  = tai_xobsS
delta_tSS   = delta_tS
exptotSS    = exptotS
wrangeSS    = wrangeS
wdeltaSS    = wdeltaS
spa_resSS   = spa_resS
n_cmp_noSS  = n_cmp_noS
n_objSS     = n_objS
n_resSS     = n_resS
n_obserSS   = n_obserS
k_obs_modeSS= k_obs_modeS
k_sci_objSS = k_sci_objS
;
UVCS_SEL_DATA,file_ID,                                                     $
	fileSS,expcSS,rollSS,obsnSS,npanSS,grtSS,mirposSS,cmdmirSS,        $
 	miranglSS,offsetSS,occposSS,occwdthSS,sltposSS,sltwdthSS,fltposSS, $
  	tai_xobsSS,delta_tSS,exptotSS,wrangeSS,wdeltaSS,spa_resSS,         $
        n_cmp_noSS,n_objSS,n_resSS,n_obserSS,k_obs_modeSS,k_sci_objSS
;
; Build new Widget
;
wsh_det=WIDGET_BASE(title='Show Details of Selected Observation', $
xoffset=100,yoffset=80,/column)
;
tmp=WIDGET_LABEL(wsh_det,value='FITS Parameters')
tx0='FITS name : '+fileSS(0)
tx1='Total # of Set of Exposures : '+STRCOMPRESS(expcSS(0),/rem)
tx2='Roll Angle (ccw from N) : '+STRCOMPRESS(rollSS(0),/rem)
tx3='ONUM:       '+STRCOMPRESS(obsnSS(0),/rem)
tx4='# Panels:   '+STRCOMPRESS(npanSS(0),/rem)
tx41='Spatial Resol.: '+STRCOMPRESS(spa_resSS(0),/rem)
tx42='Campaign #:  '+STRCOMPRESS(n_cmp_noSS(0),/rem)
tx43='Object  : '+STRTRIM(n_objSS(0),2)
tx44='Results : '+STRTRIM(n_resSS(0),2)
tx45='Observer: '+STRCOMPRESS(n_obserSS(0),/rem)
tx46='Obs Mode: '+STRTRIM(k_obs_modeSS(0),2)
tx47='Sci Obj : '+STRTRIM(k_sci_objSS(0),2)

if N_ELEMENTS(fileSS) gt 1 then begin
   UVCS_CONV_TAI_DATETIME,tai_xobsSS(0),datef
   tx01='Date from : '+datef
   tai=tai_xobsSS(N_ELEMENTS(fileSS)-1)+exptotSS(N_ELEMENTS(fileSS)-1)
   UVCS_CONV_TAI_DATETIME,tai,datet
   tx02='Date to   : '+datet
   tx5='CMD Mirror Range: '+APPROX_CAT(MIN(cmdmirSS),2,STR='YES')+' - '+ $
                            APPROX_CAT(MAX(cmdmirSS),2,STR='YES')
   tx6='Pointing Range  : '+APPROX_CAT(MIN(miranglSS-offsetSS),2,STR='YES')+' - '+ $
                            APPROX_CAT(MAX(miranglSS-offsetSS),2,STR='YES')
   tx7='Grating  Range  : '+STRCOMPRESS(MIN(grtSS),/rem)+' - '+ $
                            STRCOMPRESS(MAX(grtSS),/rem)
   text=[tx0,tx01,tx02,tx1,tx2,tx3,tx4,tx5,tx6,tx7]
   yz=11
endif else begin
   text=[tx0,tx1,tx2,tx3,tx4]
   yz=7
endelse
text=[text,tx41]
if n_cmp_noSS(0) ne 0 then begin
   text=[text,tx42]
   yz=yz+1
endif
if STRCOMPRESS(n_objSS(0),/rem)   ne '' then  begin
   text=[text,tx43]
   yz=yz+1
endif
if STRCOMPRESS(n_resSS(0),/rem)   ne '' then  begin
   text=[text,tx44]
   yz=yz+1
endif
if STRCOMPRESS(n_obserSS(0),/rem) ne '' then  begin
   text=[text,tx45]
   yz=yz+1
endif
if STRCOMPRESS(k_obs_modeSS(0),/rem) ne '' then  begin
   text=[text,tx46]
   yz=yz+1
endif
if STRCOMPRESS(k_sci_objSS(0),/rem) ne '' then  begin
   text=[text,tx47]
   yz=yz+1
endif
;
wsh_fits=WIDGET_TEXT(wsh_det,value=text,xsize=38,ysize=yz,resource_name='white')
;
tmp=WIDGET_LABEL(wsh_det,value='Record Parameters')
;
; Loop over Records
;
for j=0,N_ELEMENTS(fileSS)-1 do begin
   ; Convert tai_xobs to date
   UVCS_CONV_TAI_DATETIME,tai_xobsSS(j),datef
   tx0  ='Date from  : '+datef
   tai=tai_xobsSS(j)+exptotSS(j)
   UVCS_CONV_TAI_DATETIME,tai,datet
   tx1  = 'Date to    : '+datet
   tx2  = 'Mirror CMD : '+APPROX_CAT(cmdmirSS(j),2,STR='YES')
   tx3  = 'Offset     : '+APPROX_CAT(offsetSS(j),2,STR='YES')
   pointing=miranglSS(j)+offsetSS(j)
   tx4  = 'Pointing   : '+APPROX_CAT(pointing,2,STR='YES')
   tx5  = 'Slit       : '+STRCOMPRESS(sltwdthSS(j),/rem)
   tx6  = 'Expos Time : '+STRCOMPRESS(exptotSS(j),/rem)
   tx7  = 'Time Resol.: '+STRCOMPRESS(delta_tSS(j),/rem)
   nz=WHERE(wrangeSS(j,0,*) ne 0)
   tx08  = 'Wavel Range from: '
   tx09  = 'Wavel Range to  : '
   tx010 = 'Wavel Binning   : '
   tx8  = APPROX_CAT(wrangeSS(j,0,nz),2,STR='YES')
   tx9  = APPROX_CAT(wrangeSS(j,1,nz),2,STR='YES')
   tx10 = APPROX_CAT(wdeltaSS(j,nz),0,STR='YES')
   tmp8=tx8(0) & tmp9=tx9(0) & tmp10=tx10(0)
   if N_ELEMENTS(tx8) gt 1 then for i=1,N_ELEMENTS(tx8)-1 do begin
      tmp8=tmp8+'  '+tx8(i)
      tmp9=tmp9+'  '+tx9(i)
      tmp10=tmp10+'        '+tx10(i)
   endfor
   tx8=tx08+tmp8 & tx9=tx09+tmp9 & tx10=tx010+tmp10
   tx11 = 'Grating : '+STRCOMPRESS(grtSS(j),/rem)
   tx12 = 'Occulter: '+STRCOMPRESS(occposSS(j),/rem)
   if fltposSS(j) eq 1 then tmp='NO' else tmp='YES'
   tx13 = 'Filter: '+tmp
   rec_ID='      Record # '+STRCOMPRESS(FIX(j),/rem)
   if j eq 0 then $
   text=[rec_ID,tx0,tx1,tx2,tx3,tx4,tx5,tx6,tx7,tx8,tx9,tx10,tx11,tx12,tx13] $
   else $
   text=[text,'',rec_ID,tx0,tx1,tx2,tx3,tx4,tx5,tx6,tx7,tx8,tx9,tx10,tx11,tx12,tx13,'']
endfor
wsh_rec=WIDGET_TEXT(wsh_det,value=text,xsize=38,ysize=12,scr_ysize=250, $
resource_name='white',/scroll)
;
;
; Create draw widget for Pointing display:
; pointing = mirangl + offset
pointing = APPROX_CAT(miranglSS+offsetSS,2,STR='NO')                 ; SG Oct 05
mir_slt = APPROX_CAT(pointing+((sltwdthSS)/25.)*(7./969),2,STR='NO') ; DP 01
if MAX(pointing) le -1. then sunsize=0.
if MAX(pointing) gt -1. AND MAX(pointing) le 1. then sunsize=200.
if MAX(pointing) gt  1. AND MAX(pointing) le 4. then sunsize=100.
if MAX(pointing) gt  4. AND MAX(pointing) le 5. then sunsize=80.
if MAX(pointing) gt  5. AND MAX(pointing) le 6. then sunsize=70.
if MAX(pointing) gt  6. AND MAX(pointing) le 7. then sunsize=60.
if MAX(pointing) gt  7. then sunsize=40.
pointing=pointing*sunsize/2.
mir_slt=(mir_slt)*sunsize/2.
suncntr= MAX(pointing)+sunsize/4.
;
; Define size of draw widget
xw=suncntr*2.
yw=suncntr*2.
if sunsize ne 0. then $
draw_pntg=WIDGET_DRAW(wsh_det,uvalue='DISP_PNTG',xsize=xw,ysize=yw)
;
; Button to quit display:
wsh_quit=WIDGET_BUTTON(wsh_det,value='QUIT',uvalue='QUIT',resource_name='red')
;
WIDGET_CONTROL,wsh_det,/realize
;
if sunsize eq 0. then begin
    t0='Pointing not know'
    t1='Please verify the offset computation'
    text=[t0,t1]
    tmp=WIDGET_TEXT(wsh_det,value=text,ysize=2,resource_name='white')
    goto,nodraw
endif
;
;  Plot Pointing draw widget:
widget_control,draw_pntg,get_value=win_ima
wset,win_ima
;
!p.background=255  &  !p.color=0  &  !p.title=''  &  !x.title=''  & !y.title=''
th=360.
rsu=intarr(th) & rsu(*)=1
;
; Draw Sun
xx0=suncntr-sunsize/2.	 &   yy0=suncntr-sunsize/2.
xx1=suncntr+sunsize/2.	 &   yy1=suncntr+sunsize/2.
;
plot,/polar,/device,xstyle=5,ystyle=5,rsu,!DTOR*(findgen(th)), $
  position=[xx0,yy0,xx1,yy1],line=0
;
; Draw equidistance grid
maxmir=FIX(MAX(cmdmirSS+0.5)) 	;DP 01
for j=2,maxmir do begin
  xx0=suncntr-(sunsize/2.)*j	 &   yy0=suncntr-(sunsize/2.)*j
  xx1=suncntr+(sunsize/2.)*j	 &   yy1=suncntr+(sunsize/2.)*j
  plot,/polar,/device,xstyle=5,ystyle=5,rsu,!DTOR*(findgen(th)), $
  position=[xx0,yy0,xx1,yy1],line=1,/NOERASE
endfor
;
xn=sunsize/4.
yn= sunsize/4.
arrow,suncntr,suncntr,suncntr,suncntr+xn,/solid,thick=2,hthick=2
arrow,suncntr,suncntr,suncntr-xn,suncntr,/solid,thick=2,hthick=2
;
R=6.9598e+10       ; Solar Radius [cm]
L=1.481019131e+13  ; L1-Sun [cm]
arc_r=1/(!RADEG*ASIN(R/L)*60*60)
;
ymin=(-1372.+(10.)*7.)
ymax=(-1372.+(340.)*7.)
ymin_r=arc_r*ymin
ymax_r=arc_r*ymax
;
s2=ABS(ymin_r)*sunsize/2.
s1=ABS(ymax_r)*sunsize/2.
;
; Draw Instantaneous FOVs
th=!DTOR*rollSS
for i=0,N_ELEMENTS(fileSS)-1 do begin
   x0=suncntr-pointing(i)*SIN(th)+s1*COS(th)
   y0=suncntr+pointing(i)*COS(th)+s1*SIN(th)
   x1=suncntr-pointing(i)*SIN(th)-s2*COS(th)
   y1=suncntr+pointing(i)*COS(th)-s2*SIN(th)
   plots,[x0,x1],[y0,y1],/device
   ; + slit width
   x0s=suncntr-mir_slt(i)*SIN(th)+s1*COS(th)
   y0s=suncntr+mir_slt(i)*COS(th)+s1*SIN(th)
   x1s=suncntr-mir_slt(i)*SIN(th)-s2*COS(th)
   y1s=suncntr+mir_slt(i)*COS(th)-s2*SIN(th)
   plots,[x0s,x1s],[y0s,y1s],/device
   plots,[x0,x0s],[y0,y0s],/device
   plots,[x1,x1s],[y1,y1s],/device
endfor
;
; Draw radial grid
xr1=suncntr	&	xr2=suncntr
yr1=0.		&	yr2=suncntr*2.
plots,[xr1,xr2],[yr1,yr2],/device,line=1.
xr1=0.		&	xr2=suncntr*2.
yr1=suncntr	&	yr2=suncntr
plots,[xr1,xr2],[yr1,yr2],/device,line=1.
xr1=0.		&	xr2=suncntr*2.
yr1=0.		&	yr2=suncntr*2.
plots,[xr1,xr2],[yr1,yr2],/device,line=1.
xr1=0.		&	xr2=suncntr*2.
yr1=suncntr*2.	&	yr2=0.
plots,[xr1,xr2],[yr1,yr2],/device,line=1.
;
nodraw:
xmanager,'UVCS_SHOW_DETAILS',wsh_det
;
end
;
;
pro UVCS_SHOW_DETAILS_EVENT,ev
;
widget_control,ev.id,get_uvalue=uvalue
;
;  Quit Display:
if uvalue eq 'QUIT' then begin
  widget_control,ev.top,/destroy
  return
endif
return
end
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SEARCH_EVE
;
; Purpose: Search FITS files associated with Events (CMEs, Comets and
;          Stars) in the Text Catalog files
;
; Inputs:  list of FITS filename selected via Data Catalog
;
; Outputs: txt_eve array
;	     txt_eve(j)='CME'  if CME for that file in the CME Catalog
;	     txt_eve(j)='Comet'  if Comet for that file in the Comet Catalog
;	     txt_eve(j)='Star'  if Star for that file in the Star Catalog
;	     txt_eve(j)='.'  if there are no events in the Catalogs
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Oct 15 2003 SEARCH_CME
; Oct 27 2003 Search Comets and Stars too
;-----------------------------------------------------------------------
pro UVCS_SEARCH_EVE,fileS,txt_eve
;
; Define the output array
txt_eve=STRARR(N_ELEMENTS(fileS))
txt_eve(*)='.'
;
; Catalog type
;type=['CME','Comet','Star']
type=['CME','Comet']
;
tit='Load Events Catalog'
progr_msg='Records Loaded'
PROGRESS_BAR_SG,N_ELEMENTS(type)-1,tit,progr_msg,bar_frq,bar,STAGE='Start',bcnt
for i=0,N_ELEMENTS(type)-1 do begin
    PROGRESS_BAR_SG,N_ELEMENTS(type)-1,tit,progr_msg,bar_frq,bar,STAGE='Loop',bcnt,i
    ;
    ; Read Catalogs
    UVCS_READ_EVE_CAT,evecat,TYPE=type(i)
    ;
    q=WHERE(STRMATCH(evecat,'*#*'),nn)
    ;if type(i) eq 'CME'   then print,'%% UVCS_SEARCH_EVE, Total CMEs = ', nn
    ;if type(i) eq 'Comet' then print,'%% UVCS_SEARCH_EVE, Total Comets = ', nn
    ;if type(i) eq 'Star'  then print,'%% UVCS_SEARCH_EVE, Total Stars = ', nn
    ;
    ; Search FITS filenames in Catalogs
    w=WHERE(STRMATCH(evecat,'*??.??.??.??:??:??*'),cnt)
    fits_str=STRCOMPRESS(evecat(w))
    ;
    ;Select the FITS filename core from fits_str
    UVCS_GET_CORE_FITS,fits_str,core_name
    ;
    fileS_core=STRMID(fileS,1,14)
    for j=0,N_ELEMENTS(core_name)-1 do begin
        q=WHERE(fileS_core eq core_name(j),cnt)
        if cnt ne 0 then txt_eve(q)=type(i)
    endfor
endfor
PROGRESS_BAR_SG,N_ELEMENTS(type)-1,tit,progr_msg,bar_frq,bar,STAGE='End'
;
;for j=0,N_ELEMENTS(txt_eve)-1 do print,j,'  ',txt_eve(j)
;
return
end
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_READ_EVE_CAT
;
; Purpose: Read the full CME or Comets or Stars Catalog file into
;          an IDL variable
;
; Inputs:  cme catalog text file: CATALOG_CME_20031023
;          comets               : CATALOG_COMETS_20031027
;          stars                : CATALOG_STARS_********    doesn't exist
;
; Outputs: contents of catalog: evecat
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Oct 15 2003
; Oct 27 2003 ready to read comets and stars catalogs also
;             via TYPE keyword
; May 20 2004 read the most recent version of CME and Comets Catalogs 
;	      and read them
;-----------------------------------------------------------------------
pro UVCS_READ_EVE_CAT,evecat,TYPE=type
;
if type eq 'CME' then  begin
  dfile='../TABLES/CATALOG_CME_20031023'
  cmd='ls -1t ../TABLES/*CME*'
  spawn,cmd,lst
  dfile=lst(0)
  print, 'CME Catalog File: ', dfile
endif
;
if type eq 'Comet' then begin
  ;dfile='../TABLES/CATALOG_COMETS_20031027'
  cmd='ls -1t ../TABLES/*COMETS*'
  spawn,cmd,lst
  dfile=lst(0)
  print, 'Comet Catalog File: ', dfile
endif
if type eq 'Star' then dfile='../TABLES/CATALOG_STARS_********'
;
n=0   &   tmp1=''
;nc=0  ; line of comments
openr,unit,dfile,/get_lun
  while not EOF(unit) do begin
    readf,unit,tmp1
    n=n+1
  endwhile
close,unit
;
; Define variable
;
nn=n
evecat=STRARR(nn)
;
; Read to fill the variable
;
frm='(A100)'
openr,unit,dfile,/get_lun
;
tmp0=''
for i=0l, nn-1 do begin
   readf,unit,format=frm,tmp0
   evecat(i)=tmp0
endfor
;
close,unit
close,/all
;
return
end
;
;-----------------------------------------------------------------------
;               Procedure  UVCS_SHOW_EVE_DETAILS
;
; Purpose: Show Event (CME, Comet , Star) Details from Event Catalogs
;
; Inputs:  eve_det
;
; Outputs: text widget
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Oct 24 2003
;-----------------------------------------------------------------------
pro UVCS_SHOW_EVE_DETAILS,eve_det,efile
;
; Build new Widget
;
weve_sh_det=WIDGET_BASE(title='Selected Event Details',xoffset=150,yoffset=120,/column)
;
tmp=WIDGET_LABEL(weve_sh_det,value=efile+' Comments')
text=eve_det
yz=N_ELEMENTS(text)+1
weve_txt=WIDGET_TEXT(weve_sh_det,value=text,xsize=90,ysize=yz,resource_name='white')
;
; Button to quit display:
weve_quit=WIDGET_BUTTON(weve_sh_det,value='QUIT',uvalue='QUIT',resource_name='red')
;
WIDGET_CONTROL,weve_sh_det,/realize

xmanager,'UVCS_SHOW_EVE_DETAILS',weve_sh_det
;
end
;
;
pro UVCS_SHOW_EVE_DETAILS_EVENT,ev
;
widget_control,ev.id,get_uvalue=uvalue
;
;  Quit Display:
if uvalue eq 'QUIT' then begin
  widget_control,ev.top,/destroy
  return
endif
return
end
;
;
;-----------------------------------------------------------------------
;               Procedure UVCS_GET_CORE_FITS
;
; Purpose: Select the FITS filename core from fits_str
;
; Input:   fits_str   string array which contains the FITS filenames
;
; Output:  core_name  string array which contains the core of the
;                     FITS filename = 'yy.mm.dd.hh:mm'
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Oct 27 2003
;-----------------------------------------------------------------------
pro UVCS_GET_CORE_FITS,fits_str,core_name
;
cnt=N_ELEMENTS(fits_str)
core_name=STRARR(cnt)
for i=0,cnt-1 do begin
  a=STRSPLIT(fits_str(i),/EXTRACT)
  b=WHERE(STRMATCH(a,'*??.??.??.??:??:??*'),cnt)
  q=STRPOS(a(b),'.')
  core_name(i)=STRMID(a(b),q-2,14)
endfor
return
end
;
;
;-----------------------------------------------------------------------
;               Procedure UVCS_READ_MENU_VALUES
;
; Purpose: Read values for menu
;
; Input:   text file
;
; Output: menu_values
;
; Author:
;	Silvio Giordano	(SG)
;
; History:
; Nov 11 2003
;-----------------------------------------------------------------------
pro UVCS_READ_MENU_VALUES,vfile,menu_values
;
; Read to define variables only
;
vfile='../TABLES/'+vfile
;
n=0   &   tmp1=''
openr,unit,vfile,/get_lun
  while not EOF(unit) do begin
    readf,unit,tmp1
    n=n+1
  endwhile
close,unit
;
; Define results variables
menu_values=STRARR(n)
;
; Read values
;
openr,unit,vfile,/get_lun
tmp0=''
for i=0l, n-1 do begin
   readf,unit,tmp0
   menu_values(i)=tmp0
endfor
;
close,unit
close,/all
;
return
end