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

%  Version SWD960709
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%	(adapted from Phillip Cornwell, cornwell@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
%

angvec = (angle(Phi) - angle(Phi(1)))/pi*180;
 
for i=1:size(DOFvec,1),
  
  temp1(i,:)=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

