function a = column(a)
%  function a = column(a)
%  returns a column vector.
[ar,ac] = size(a);
if ((ar ==1) & (ac > 1))
	a = a';
end;