%
%  Name: SEMwind
% 
%  Usage: SEMwind
% 
%   Description:
%     Uses the strain energy damage index approach
%     (Stubbs, et al.)
%

%  Version SWD970403
%
%  Author(s): P. Cornwell, cornwell@lanl.gov
%	modified by Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1996-1997, The Regents of the University
%     	of California. (See top level of code for
%	full copyright statement.)

if exist('onHndlVector')==0
    onHndlVector=hndlMatrix(1,:);
    onHndlVector(find(onHndlVector==0))=[];
end
onHndlVector=handact(onHndlVector,hndlMatrix,5);

%
%  Initialize the mode selection window
%

mdslinit

%  Set the current plot axes and legend axes handles

haxes = onHndlVector(32);
hlegax = onHndlVector(34);

%
% Turn off the display tools button
%

set(onHndlVector(33),'visible','off')

%  Define the mode shape variables

if exist('phir_resp_d'), shapedam=phir_resp_d; end;
if exist('phir_resp_u'), shapeundam=phir_resp_u; end;















