function textin=ERAtext(freq,damp,emac,mpc,cmi)
%
%  Name: RPtext.m
% 
%  Usage: text=ERAtext(freq,damp,emac,mpc,cmi))
% 
%  Description:
%    Puts Frequency and Damping into a matrix
%    Freq is a column vector of frequencies
%    Dampings a column vector of damping
%

%  Version SWD970402
%
%  Author(s): Phillip Cornwell, cornwell@lanl.gov
%	modified by 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
%

icount=(1:length(freq))';
nn=size(freq,1);

textin = sprintf('%5s%9s%9s%9s%9s%9s%1s','No.','Freq(Hz)','Damp(%)','EMAC','MPC','CMI','|');

for i=1:length(freq)
  textin = [textin, sprintf('%5.0f%9.2f%9.2f%9.2f%9.2f%9.2f%1s',icount(i),freq(i),damp(i)*100,emac(i),mpc(i),cmi(i),'|')];
end

return