function modetitle
%
%  Name: modetitle
% 
%  Usage: modetitle
%
%  Description:
%   Puts title on mode shape
 
%  Version SWD970805
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This matlab source code was originally     %
% developed as part of "DIAMOND" at          %
% Los Alamos National Laboratory. It may     %
% be copied, modified, and distributed in    %
% any form, provided:                        %
%  a) This notice accompanies the files and  %
%     appears near the top of all source     %
%     code files.                            %
%  b) No payment or commercial services are  %
%     received in exchange for the code.     %
%                                            %
% Original copyright is reserved by the      %
% Regents of the University of California,   %
% in addition to Scott W. Doebling, Phillip  %
% J. Cornwell, Erik G. Straser, and Charles  %
% R. Farrar.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


global MODES VIEWMODES imode HANDLES

labstr = [VIEWMODES.ipltcmplx,' Mode Number: ',num2str(imode),...
      ' - ','Frequency: ',num2str(MODES.Freq{imode}),' Hz'];

axes(HANDLES.hviewm(2))
VIEWMODES.hmodetitle = title(labstr);
xlabel('X')
ylabel('Y')
zlabel('Z')

set(VIEWMODES.hmodetitle,'fontweight','bold')
set(VIEWMODES.hmodetitle,'fontname','helvetica')
set(VIEWMODES.hmodetitle,'fontsize',10)

return
