% lexsort - sorts matrix rows lexically
%
% Syntax: much like matlab's own sort command
%
% Author: Carlos Fonseca
% Date: 31 August 1994

function [Aout,ix1] = lexsort(Ain);

% Initialization
[r,c] = size(Ain);

% Sort 
ix1 = 1:r;
for i = c : -1 : 1,
        [ans,ix] = sort(Ain(ix1,i));
        ix1 = ix1(ix);
end

% Output
Aout = Ain(ix1,:);