
%
%  Name:   lddammo
%
%  Usage:  lddammo
%
%  Loads the undamaged and damaged modes for the damage ID
%  algorithms
%
%  The following variable must be defined prior to calling
%   this script:
%  
%   damsuf = '_u' or '_d' to define whether the modes
%            should be placed in the undamaged or damaged
% 	     modal sets
%

%  Version SWD970623
%
%  Author(s): 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.)


eval(['load ',[pathname,filename]]);

if exist('filename') == 1,

   eval([' filename',damsuf,' = filename;'])
   eval([' pathname',damsuf,' = pathname;'])

   clear filename

end


if exist('Freq')==1,

  eval([' Freq',damsuf,' = Freq;'])
  
  clear Freq

end

if exist('Damp') == 1,

      eval([' Damp',damsuf,' = Damp;'])
      clear damp

end


if exist('phir_resp'),

  eval([' phir_resp',damsuf,' = phir_resp;'])
  nmod_tot = size(phir_resp,2);
   clear phir_resp

end

if exist('phir_ref'),

  eval([' phir_ref',damsuf,' = phir_ref;'])
  nmod_tot = size(phir_ref,2);
   clear phir_ref

end

if exist('respDOF'),

  eval([' respDOF',damsuf,' = respDOF;'])
   clear respDOF

end

if exist('refDOF'),

  eval([' refDOF',damsuf,' = refDOF;'])
   clear refDOF

end

clear phic_resp phic_ref

