function mdslinit
%
%  Name:   mdslinit
%
%  Usage:  mdslinit
%
%  Initializes the mode selection window
% 

%  Version SWD980513
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This matlab source code was originally     %
% developed as part of "DIAMOND" at          %
% Los Alamos National Laboratory. It may     %
% be copied, modified, and distributed in    %
% any form, provided:                        %
%  a) This notice accompanies the files and  %
%     appears near the top of all source     %
%     code files.                            %
%  b) No payment or commercial services are  %
%     received in exchange for the code.     %
%                                            %
% Original copyright is reserved by the      %
% Regents of the University of California,   %
% in addition to Scott W. Doebling, Phillip  %
% J. Cornwell, Erik G. Straser, and Charles  %
% R. Farrar.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

global DAMAGEID HANDLES MODELCOR

if ~isempty(DAMAGEID),
   
   if ~isfield(DAMAGEID,'mode_anal'),
   
      DAMAGEID.mode_anal = 1;
      set(HANDLES.hmdsel(3),'value',0)
      set(HANDLES.hmdsel(4:5),'visible','on')
      set(HANDLES.hmdsel(5),'string','[ 1 ]')

   end
   
elseif ~isempty(MODELCOR),
   
   if ~isfield(MODELCOR,'mode_anal'),
   
      MODELCOR.mode_anal = 1;
      set(HANDLES.hmdsel(3),'value',0)
      set(HANDLES.hmdsel(4:5),'visible','on')
      set(HANDLES.hmdsel(5),'string','[ 1 ]')

   end

end

return