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

%  Version SWD970828
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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 HANDLES DAMAGEID GEOM

hideallbtns
showall(HANDLES.hsemb)

%
%  Initialize the mode selection window
%

mdslinit

%  Set the current plot axes and legend axes handles

DAMAGEID.haxes = HANDLES.hsemb(32);
DAMAGEID.hlegax = HANDLES.hsemb(34);

if ~isfield(DAMAGEID,'interpopt'),
   DAMAGEID.interpopt = 'spline';
   set(HANDLES.hsemb(12),'value',1)
end

if ~isfield(DAMAGEID,'numdiv'),
   DAMAGEID.numdiv = 10;
   set(HANDLES.hsemb(10),'string','10')
end

if ~isfield(GEOM,'inodelab'),
   GEOM.inodelab = 0;
end
if ~isfield(GEOM,'nodelnco'),
   GEOM.nodelnco = 'g';
end
if ~isfield(GEOM,'nodelabsz'),
   GEOM.nodelabsz = 12;
end

if ~isfield(GEOM,'ibarlab'),
   GEOM.ibarlab = 0;
end
if ~isfield(GEOM,'barlnco'),
   GEOM.barlnco = 'y';
end
if ~isfield(GEOM,'barlnst'),
   GEOM.barlnst = '-';
end
if ~isfield(GEOM,'barlabsz'),
   GEOM.barlabsz = 12;
end

return













