%
%  Name: assignphi_t
% 
%  Usage: assignphi_t
% 
%   Description:
%     Assigns appropriate mode shape variables from
%     '_t' temporary set to permanent set 
%
%     Called by diamondbtns
%

%
%  Version SWD970620
%
%  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.)

%
%  Define the variables to assign
%

clear sphi

sphi = ' ';

if exist('phic_resp_t')==1,
   sphi = str2mat(sphi,'phic_resp');
end

if exist('phic_ref_t')==1,
   sphi = str2mat(sphi,'phic_ref');
end

if exist('phir_resp_t')==1,
   sphi = str2mat(sphi,'phir_resp');
end

if exist('phir_ref_t')==1,
   sphi = str2mat(sphi,'phir_ref');
end

%
%  Remove blank first line in sphi
%

sphi = sphi(2:size(sphi,1),:);

%
%  Assign mode shape matrix
%

for i = 1:size(sphi,1),

   if exist(sphi(i,:))~=1, eval([sphi(i,:),'=[];']), end

   eval([sphi(i,:),'=[',sphi(i,:),' ',deblank(sphi(i,:)),'_t];'])

end

if exist('Freq')~=1, Freq=[]; end

Freq = [Freq freq_t];

if exist('damp_t'),

   if exist('Damp')~=1, Damp=[]; end

   Damp = [Damp damp_t];

end

return
