function [varargout] = subsample(array_in)
% SUBSAMPLE returns the columns of an array as individual vectors
% This is handy for breaking out the columns of a flat ascii file read
% into a single array with load
%
% EXAMPLE:
% >> z = rand(3,2)
% z =
%
%    0.4103    0.1389
%    0.8936    0.2028
%    0.0579    0.1987
%
% >> [u,v]=columns(z)
%
% u =
%
%    0.4103
%    0.8936
%    0.0579
%
% v =
%
%    0.1389
%    0.2028
%    0.1987

error(' not inplemented')

for ii = 1:size(array_in,2)
  varargout{ii} = array_in(:,ii);
end
