%
%  Name:   anal_complex_modes.m
%
%  Usage:  anal_complex_modes.m
%
%  This m-file allows the user to analyze the complex mode
%	shapes currently in memory
% 

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

   onHndlVector=handact(onHndlVector,hndlMatrix,6);

iopDOF = get(onHndlVector(3),'value');
%%
%%  Turn off any unneeded buttons
%%

%     Turn off plot axes

hideall(onHndlVector(2))

%     Turn off text window, slider, etc.
%	and reset slider position

set(onHndlVector(12),'position',[.72 .05 .03 .84]);
set(onHndlVector(10:12),'visible','off')

%  Set default values for controls

nmod = length(Freq);
set(onHndlVector(4),'string',num2str(nmod))

%
%  Turn off Resp/Ref popup if only one exists
%

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

   set(onHndlVector(3),'visible','off')

  if exist('phic_resp') ==1,

     iopDOF = 1;

  elseif exist('phic_ref')==1,

     iopDOF = 2;

  end

end

