pro sc_times, files, output, end_time
    start_file = 1
    last_file = n_elements(files) - 1
    maxr = -99999L
    minr = 99999L
    for i = 0, last_file do begin

        sc_tim = reform(eis_read_fits_data(files[i], 'TIME', 3, header=sc_bin_header))
help,sc_tim
        if i eq 0 then begin 
            base_time = fxpar(sc_bin_header, 'UT_START')
            sc_tim_array = sc_tim
        endif else begin
            sc_tim_array = [sc_tim_array, sc_tim]
        endelse
        if i eq last_file then begin
;;;            end_time = fxpar(icu_1_header, 'UT_END')
;;;            end_time = '01-Apr-06 23:57:03'
;;;            end_time = '24-Sep-06 00:00:00'
            print, 'LAST FILE'
        endif
        mx = max(sc_tim)
        mn = min(sc_tim)
        if mx gt maxr then maxr = mx
        if mn lt minr then minr = mn
    endfor
    x = lindgen(n_elements(sc_tim_array))
    print, 'BASE_TIME = ', base_time
    print, 'END_TIME = ',  end_time

    cs=1.6

;    window, /free, xsize=1024
;    !p.multi=0
;    utplot, x, htr_a_array, base_time, timerange=[base_time,end_time],yrange=[minr-1,maxr+1],xstyle=2,pstyle=4,title='Htr A', ytitl='Temp. (Deg C)',charsize=cs
;    outplot,x, htr_b_array,color='0000FF'x
;    outplot,x, htr_c_array,color='00FFFF'x

    set_plot,'ps'
    ; Could use encapsulated here
;;;    device,xoff=2.5,yoff=6,xs=16,ys=18,file='/tmp/eis_icu_temps.ps'
    device,xoff=2.5,yoff=6,xs=16,ys=18,file=output+'/mdp_time.ps'
    !p.multi=[0,1,3]
    utplot, x, sc_tim_array, base_time, timerange=[base_time,end_time],yrange=[minr-1,maxr+1],xstyle=2,pstyle=4, $
      title='MDP Time', ytitl='Ticks',charsize=cs, /ynozero
    device,/close
    set_plot,'X'
end

pro sc_time, dir, output, end_time

    ;dir = '/tmp/'
    files = findfile(dir + 'eis_hk1_*fits', count=count)
    if count eq 0 then begin
        print, 'No files'
        return
    endif
    
;    print, count, ' files'
;    print, 'Files: ', files
;    print, 'n ', n_elements(files)
 
    sc_times, files, output, end_time
    
    !p.multi=0
end