function eis_get_hsl_if_stat1, dir

    files = findfile(dir + 'eis_sts1_*fits', count=count)
    if count eq 0 then begin
        print, 'No files'
        return,0
    endif

    d = eis_get_daily_data(files,'HSL_IF_STAT1', 12,  8, maxp0, minp0, base_time, end_time)
    return,reform(d)
end

function eis_get_hsl_if_stat2, dir

    files = findfile(dir + 'eis_sts1_*fits', count=count)
    if count eq 0 then begin
        print, 'No files'
        return,0
    endif

    d = eis_get_daily_data(files,'HSL_IF_STAT2', 13,  8, maxp0, minp0, base_time, end_time)
    return,reform(d)
end

pro eis_hsl_if_check, dir

    files = findfile(dir + 'eis_sts1_*fits', count=count)
    if count eq 0 then begin
        print, 'No files'
        return
    endif

    hsl1 = eis_get_hsl_if_stat1(dir)
    hsl2 = eis_get_hsl_if_stat2(dir)

    n = n_elements(hsl1)
    s1=hsl1[0:n-2]-hsl1[1:n-1]
    foo=where(s1 ne 0)
    foo=[foo,n-1]
    plot,hsl1[foo],psym=10
    s1=hsl2[0:n-2]-hsl2[1:n-1]
    foo=where(s1 ne 0)
    foo=[foo,n-1]
    oplot,hsl2[foo],psym=10,color=200


;    print,s[foo]
;    plot, seq[1:n-2]-seq[0:n-1]

end