%
%  Name: assignphiplot
% 
%  Usage: assignphiplot
% 
%   Description:
%     Assigns Phiplot, Freqplot, nmod, and DOFvec from appropriate
%     workspace variables, to define which mode shapes are being
%     plotted in 'viewmodes'
%
%     Called by viewmodes and diamondbtns
%
%    Uses the following flags (must be defined in workspace):
%
%	ipltcmplx :  	1 = real modes
%			2 = complex modes
%
%	iopDOF :	1 = response DOF
%			2 = reference DOF
%
%	iplt_t :	0 = plot 'full' phi matrix
%			1 = plot 'temp' phi matrix
%

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

%
%  Assign DOF vector
%

if iopDOF==1,

   DOFvec  = respDOF;

elseif iopDOF==2,
		
   DOFvec = refDOF;

end


%
%  Assign mode shape matrix
%

if ipltcmplx == 1,
   sphi = 'phir';
elseif ipltcmplx == 2,
   sphi = 'phic';
end

if iopDOF == 1,
   sdof = '_resp';
elseif iopDOF == 2,
   sdof = '_ref';
end

if iplt_t == 0,
   s_t = '';
   sfreq = 'Freq';
elseif iplt_t == 1,
   s_t = '_t';
   sfreq = 'freq_t';
end


eval(['Phiplot=',sphi,sdof,s_t,';'])

eval(['Freqplot=',sfreq,';'])

return
