function isstableflag = issecstable(h)
%ISSECSTABLE  Determine the stability of a single-section SSD 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.2 $  $Date: 2000/06/13 21:22:38 $ 

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

[a,b,c,d] = ss(h);

if isempty(a),
    isstableflag = 1;
else
    if max(abs(eig(a))) >= 1,
        isstableflag = 0;
    else
        isstableflag = 1;
    end
end
