function display(h)

%   Author(s): T. Bryan
%   Copyright 1988-2000 The MathWorks, Inc.
%   $Revision: 1.7 $  $Date: 2000/06/13 21:20:56 $ 

name = inputname(1);
if isempty(name)
  name = 'ans';
end

isloose = strcmp(get(0,'FormatSpacing'),'loose');
if isloose,
   newline=sprintf('\n');
else
   newline=sprintf('');
end

if isreal(h),
    typestr = 'Real ';
else
    typestr = 'Complex ';
end

if isfir(h),
    typestr = [typestr 'FIR filter'];
else
    typestr = [typestr 'IIR filter'];
end
      

fprintf(newline);
disp([name, ' = ']);
fprintf(newline);
titlestr = sprintf('Discrete-Time %s',typestr);
disp(titlestr);
disp('--------------------------------');

disp(h);

