function m = utScaledExpm(a)
% Matrix exponential with pre-scaling.

%   Author(s): P. Gahinet
%   Copyright 1986-2006 The MathWorks, Inc. 
[s,junk,a] = mscale(a,'noperm','safebal');
m = lrscale(expm(a),s,1./s);