%
%  Name: nomodes
% 
%  Usage: nomodes
% 
%   Description:
%    defines flag imodesr=1 if 'full' real mode shapes are present,
%    defines flag imodesc=1 if 'full' complex mode shapes are present,
%	
%    if either are present, defines imodes=1
%

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


if exist('phir_resp')==1 |  exist('phir_ref')==1,

   imodesr=1;

else

   imodesr=0;

end

if exist('phic_resp')==1 |  exist('phic_ref')==1,

    imodesc=1;

else

    imodesc=0;

end

if imodesr==1 | imodesc==1,

    imodes=1;

else

    imodes=0;

end

