 lies outside the
                unit circle), if DISCR = .TRUE.;
          = 3:  if matrix A has two or more consecutive non-zero
                elements on the first sub-diagonal, so that there is
                a block larger than 2-by-2 on the diagonal;
          = 4:  if matrix A has a 2-by-2 diagonal block with real
                eigenvalues instead of a complex conjugate pair.

</PRE>
<A name="Method"><B><FONT SIZE="+1">Method</FONT></B></A>
<PRE>
  The method used by the routine is based on the