function mpcplot(haxes,complexmode,Freq)
%
%  Name: mpcplot
% 
%  Usage: 
% 
%   Description:
%     Plots the Modal Phase Colinearity of a single
%     complex mode
%
% 

%
%  Version SWD970806
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% 	Compute MPC Value
%

MPC = mpc_comp(complexmode);

%
%	Draw MPC plot
%

a = abs(complexmode);

axes(haxes)
polar(angle(complexmode),a,'b')
h = text(0,-max(a)*1.2,['Mode at ',num2str(Freq),' Hz, MPC = ',num2str(MPC(1))]);
set(h,'horizontalalign','center')
rotate3d off
   
return
