function s = simlabel(im)
%  Re-labels simple ridge images from simridge with components broken up
%    
%	s = simlabel(im)
%
%   Input -     im = labeled image from simridge
%   Output -    s  = relabeled image

  [m,n] = size(im);

 
  z = zeros(m,n);

  nonneg = im > z;

  neg = im < z;

  lnonneg = labelr8(nonneg);

  lneg = labelr8(neg);

  max1 = max(max(lnonneg));

  lneg = (lneg + max1).*(neg~=z);

  s = lneg+lnonneg;
  
