function c=cgrp(c1,c2,c3,c4,c5,c6,c7,c8)
% function c=cgrp(c1,c2,c3,c4,c5,c6,c7,c8)  adds up to 7 strings to array
% Argument List:
% Argument    Gives
%    c1      character array to be put into c.
%    ck      kth character vector to be added to c.
% Adds one to 7 character strings to an array
% Uses ms223 function cext
% Example: cgrp(['a';'b'],'123',' asdf')
c=c1;
[nr,nc]=size(c);
n=nc;
for k=2:nargin
    ck=eval(['c',num2str(k)]);
    n=max([n,length(ck)]);
end
if nc<n
   c=[c';blank(n-nc,nr)]';
end
for k=2:nargin
    ck= cext(eval(['c',num2str(k)]),n);
    c=[c;ck];
end

