function bins = mySort(D)

% mySort orders the distinct nonzero element of D 
%        in ascending order

k = length(D);

bins = zeros(k,1);

i = 1;

while k > 0
   
   bins(i) = min(D);
   
   D = D - bins(i);
   
   I = find(D);
   
   D = D + bins(i);
   
   k = length(I);
   
   D = D(I);
   
   i = i+1;
   
end

I = find(bins);

bins = bins(I) ;