function mbreal(a)
%MBREAL   Must be real.
%   The statement
%
%       mbreal(x)
%
%   asserts that, at that point in the computation, the imaginary part
%   of variable x is zero.  If this assertion is false, an error occurs;
%   if this assertion is true, the computation proceeds.
%
%   See also MBINT, MBINTSCALAR, MBINTVECTOR, MBREALSCALAR, 
%            MBREALVECTOR, MBSCALAR, MBVECTOR.

% $Revision: 1.6 $  $Date: 1998/12/17 19:07:24 $
% Copyright (c) 1984-1998 by The MathWorks, Inc.


if any(any(imag(a))),
   error( 'Argument to mbreal must be real.' );
end
