function c=cext(c1,n)
% function c=cext(c1,n)  extends a character string to n columns
% Extends a character string to n columns.
% If c1 has less than n columns, it returns c1.
% Example: cext('abc',5)
%
% JWD
[nr,nc]=size(c1);
if nr==0
   nr=1;
end
c=c1;
if n>nc
   c=[c blank(nr,n-nc)];
end
