%  Equivalent unit conversion utility 
function units2 = SameUnits(SAME,units2)
  for i=1:size(SAME,1)
    l=find(SAME{i,1}=='/');
    u1=SAME{i,1}(1:l-1);
    u2=SAME{i,1}(l:end);
    if isempty(strfind(units2,strcat('/',u1)))
      j=strfind(units2,u1);
      k=strfind(units2,u2);
      if (j & k)
        units2(j)=SAME{i,2};
        units2=strcat(units2(1:k-1),units2(k+2:end));
      end
    end
  end
end
