%   stable = isstable(G)
%   
%   Function istable returns one if all poles of G have real part 
%   less than zero.
%
%   See also: spoles and eig.
%
%   Written by: Kjetil Havre, 1/12-1995, e-mail: kjetil@ife.no.
%

function stable = isstable(G)

   P = spoles(G);
    
   IPrhp = find(real(P)>=0);
    
   if isempty(IPrhp)
      stable = 1;
   else
      stable = 0;
   end
end
       
