function isstableflag = issecstable(h)
%ISSECSTABLE  Determine the stability of a single-section DTF object.
%   FLAG = ISSECSTABLE(H) determines if the single-section filter
%   H is stable and returns 1 if true and 0 if false.

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

error(nargchk(1,1,nargin));

isstableflag = 0; % Assume unstable by default

if isfir(h),
    % Section is FIR, always stable
    isstableflag = 1;
    return
end

% Gather transfer function coefficients
[b,a] = tf(h);

if signalpolyutils('isstable',a),
    isstableflag = 1;
end

    
            

