function r = isreal(x)

%   Copyright (c) 1993-98 by The MathWorks, Inc.
%   $Revision: 1.3 $  $Date: 1997/11/29 01:05:45 $

r = isequal(x,conj(x));
