function w=mkcol(x)

% The function MKCOL converts matrix x to a column vector.
%
% Calling sequence-
% w=mkcol(x)
%
% Input-
%	x	- 2-D matrix of data x(nx,ny) 
% Output-
%	w	- column vector of data x(nx,ny)

%----- Get dimensions
[nx,ny]=size(x);
nn=nx*ny;

%----- Convert matrix to a column vector
w=zeros(nn,1);
for j=1:nx
   for i=1:ny
      w((j-1)*ny+i)=x(j,i);
   end
end