%
%  sort_eigenvalues_eigenvectors.m  ver 1.0  Sep 5, 2012
%
function[Eigenvalues,ModeShapes]=...
                  sort_eigenvalues_eigenvectors(Eigenvalues,ModeShapes)
%
szz=size(ModeShapes);
%
nrows=szz(1);
ncols=szz(2);
%
EEE=zeros(ncols,nrows+1);
%
for i=1:ncols
    EEE(i,1)=abs(Eigenvalues(i,i));
end
EEE(:,2:nrows+1)=ModeShapes';
EEE=sortrows(EEE);
Eigenvalues=EEE(:,1);
ModeShapes=EEE(:,2:nrows+1)';