function eis_get_seq, dir

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

    seq = eis_get_daily_data(files,'SEQ_I', 1,  11, maxp0, minp0, base_time, end_time)
    return,reform(seq)
end

pro eis_seq_check, dir

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

    s = eis_get_seq(dir)

    n = n_elements(s)
    s1=s[0:n-2]-s[1:n-1]
    foo=where(s1 ne 0)
    foo=[foo,n-1]
;    plot,s[foo],psym=10
    print,s[foo]
;    plot, seq[1:n-2]-seq[0:n-1]

end