function textin = magphstx(DOFvec,Phi,Freq)
%
%  Name: magphstx
% 
%  Usage: 
% 
%  Description:
%    Makes text description of magnitude and phase
%
%

%  Version SWD960709
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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.                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

angvec = (angle(Phi) - angle(Phi(1)))/pi*180;


temp1(1,:) = blanks(35);
temp1(2,:) = sprintf('%8s   %3s   %8s   %6s','Location','Dir','Magnitude','Phase');

for i=1:size(DOFvec,1),
  
  temp1(i+2,:)=sprintf('%8.2f   %3.0f   %8.2d   %6.0f',DOFvec(i,1),DOFvec(i,2),abs(Phi(i)),angvec(i));

 
end

textin=str2mat(temp1);

return

