% MPOWER implements mpower operator for unit objects.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% DESCRIPTION: MPOWER implements mpower operator for unit objects.
%
% CALL:        a = a1^scalar
%
% VERSION:     $Id: mpower.m,v 1.6 2011/02/18 16:48:55 ingo Exp $
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function v = mpower(vi, exp)
  v = copy(vi, 1);
  if ~isnumeric(exp)
    error('### Can only raise units to a numeric power.');
  end  
  v.exps = v.exps*exp; 

end
