clear;

ser = input('Please input file name:  ');
drc = ['../outf/', ser];

dir(drc)



for i = 1:100
    dir(drc)
    fnm = input('Please input file name :  **_dat/lbl');
    dat_fnm = [fnm, '_dat'];
    lbl_fnm = [fnm, '_lbl'];
    plot_ea_sub(drc, dat_fnm, lbl_fnm);
    
    ans = input('Will you see next Ea?  1/0 (yes/no)');
    if ans ‾= 1 
        return
    end
end

