% RDIVIDE implements rdivide operator for unit objects.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: RDIVIDE implements rdivide operator for unit objects.
%
% CALL:        a = a1./scalar
%              a = a1./a2
%
% VERSION:     $Id: rdivide.m,v 1.5 2011/02/18 16:48:55 ingo Exp $
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function v = rdivide(v1,v2)

  if isnumeric(v1)
    v1 = unit();
  end
  if isnumeric(v2)
    v2 = unit();
  end

  v = unit;
  v.strs = [v1.strs v2.strs];
  v.exps = [v1.exps -1*v2.exps];
  v.vals = [v1.vals v2.vals];

end