function eigenui()
%load eigenui       
global EIG

EIG.fig = figure('Color',[0.8 0.8 0.8], ...
	'Name','Eigenvalues', ...
	'Units','normalized', ...
	'Position',[.01 .05 .98 .9], ...
	'Tag','Fig1');
	
EIG.axes = axes('Parent',EIG.fig, ...
	'CameraUpVector',[0 1 0], ...
	'Color',[1 1 1], ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'LineWidth',1, ...
	'NextPlot','add', ...
	'Position',[0.05 0.05 0.64 0.93], ...
	'Tag','Axes1', ...
	'XColor',[0 0 0], ...
	'YColor',[0 0 0], ...
	'ZColor',[0 0 0]);

EIG.pop_fcn = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Function'');',...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.91 0.30 0.08], ...
	'String',{'ArnoldiC'}, ...
	'Style','popupmenu', ...
	'Tag','PopupMenu1', ...
	'Value',1);
	
EIG.edit_dim = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Dim'');',...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.90 0.84 0.10 0.08], ...
	'String','40', ...
	'Style','edit', ...
	'Tag','EditText1');
EIG.str_dim = uicontrol('Parent',EIG.fig, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.82 0.20 0.08], ...
	'String','Dimension', ...
	'Style','text', ...
	'Tag','StaticText1');
	
EIG.pop_sym = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Sym'');',...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.73 0.30 0.08], ...
	'String',{'nonsymmetric' 'symmetric' 'symmetric w/f'}, ...
	'Style','popupmenu', ...
	'Tag','PopupMenu2', ...
	'Value',1);
	
EIG.edit_steps = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Steps'');',...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.90 0.66 0.10 0.08], ...
	'String','40', ...
	'Style','edit', ...
	'Tag','EditText2');
EIG.str_steps = uicontrol('Parent',EIG.fig, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.64 0.20 0.08], ...
	'String','Steps', ...
	'Style','text', ...
	'Tag','StaticText2');
	
EIG.edit_ortho = uicontrol('Parent',EIG.fig, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.80 0.57 0.20 0.08], ...
	'String','', ...
	'Style','edit', ...
	'Tag','EditText3');
EIG.str_ortho = uicontrol('Parent',EIG.fig, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.55 0.10 0.08], ...
	'String','Ortho', ...
	'Style','text', ...
	'Tag','StaticText3');
	
EIG.edit_res = uicontrol('Parent',EIG.fig, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.80 0.48 0.20 0.08], ...
	'String','', ...
	'Style','edit', ...
	'Tag','EditText4');
EIG.str_res = uicontrol('Parent',EIG.fig, ...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.46 0.10 0.08], ...
	'String','Res', ...
	'Style','text', ...
	'Tag','StaticText4');
	
EIG.push_calc = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Calc'');',...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'ForegroundColor',[1 0 0], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.37 0.30 0.08], ...
	'String','Calculate', ...
	'Tag','PushButton0' ...
	);
	
EIG.push_ploteig = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''PlotEigenValues'');',...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.28 0.30 0.08], ...
	'String','Plot Eigenvalues', ...
	'Tag','PushButton1' ...
	);
	
EIG.push_step = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Step'');',...
	'Interruptible','off',...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.19 0.30 0.08], ...
	'String','Step', ...
	'Tag','PushButton2' ...
	);
	
EIG.push_continue = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Continue'');',...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.10 0.30 0.08], ...
	'String','Continue', ...
	'Tag','PushButton3' ...
	);
	
EIG.push_exit = uicontrol('Parent',EIG.fig, ...
	'Callback','eigen_update(''Exit'');',...
	'Units','normalized', ...
	'BackgroundColor',[0.8 0.8 0.8], ...
	'FontSize',14, ...
	'FontWeight','bold', ...
	'Position',[0.70 0.01 0.30 0.08], ...
	'String','Exit', ...
	'Tag','PushButton4' ...
	);

%-------------------------------------------
eigen_update('Init');