function disp(h)
%DISP  Display information of DFILT object.

%   Author(s): R. Losada
%   Copyright 1988-2000 The MathWorks, Inc.
%   $Revision: 1.8 $  $Date: 2000/06/13 21:20:55 $ 

disp(sprintf('Filter Order          : %d',order(h)));

if isstable(h),
    stablestr = 'stable';
else
    stablestr = 'unstable';
end

disp(sprintf('Stability status      : %s',stablestr));

disp(sprintf('Filter structure      : %s',filterstructure(h,'full')));


nsecs = nsections(h);
disp(sprintf('Number of sections    : %d',nsecs));

islinphaseflag = islinphase(h);
if islinphaseflag,
    linphase = 'yes'; 
    if isfir(h) & isreal(h),
        t = firtype(h);
        if iscell(t),
            t = [t{:}];
        end
        linphase = [linphase, sprintf(' (Type %d)',t)];
    end
else
    linphase = 'no';
end

disp(sprintf('Linear phase sections : %s',linphase));

% SHow the connection type only if filter has more than one section
if nsecs > 1,
    switch connection(h),
    case 'cas',
        connect = 'Cascaded';
    case 'par',
        connect = 'Parallel';
    end
    
    disp(sprintf('Filter Connection     : %s',connect));
    
end
    
    