function m=addcol(m1,m2,m3,m4,m5,m6,m7,m8)
% addcol		- Catenates two+ arrays together with columns of arrays
% function m=addcol(m1,m2,m3,m4,m5,m6,m7,m8)
% Catenates two or more arrays together by adding the 
%   columns of each array.
% The number of rows in each must be the same.
nrc=size(m1);
m=m1;
for k=2:nargin
   mk=eval(['m',num2str(k)]);
   nrc=[nrc;size(mk)];
   if nrc(1,1)~=nrc(k,1) 
      disp('Your arrays do not have the same number of rows.')
      return
   end
   m=[m';mk']';
end
