function text=RPtext(icount,freq,damp)
%
%  Name: RPtext.m
% 
%  Usage: text=RPtext(icount,Freq,Damp)
% 
%  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
%

nn=size(freq,1);
temp1 = [];

for i=1:nn
 temp1=[temp1, sprintf('%2.0f       %8.2f        %5.2f %1s',icount(i),freq(i),damp(i)*100,'|')];
end

caption=sprintf('%27s','No.    Freq(Hz)    Damp(%)|');
text = [caption temp1];

return