         DICO, FACT, TRANS
      INTEGER           INFO, LDA, LDB, LDQ, LZWORK, M, N
      DOUBLE PRECISION  SCALE
C     .. Array Arguments ..
      COMPLEX*16        A(LDA,*), B(LDB,*), Q(LDQ,*), W(*), ZWORK(*)
      DOUBLE PRECISION  DWORK(*)

</PRE>
<A name="Arguments"><B><FONT SIZE="+1">Arguments</FONT></B></A>
<P>

<B>Mode Parameters</B>
<PRE>
  DICO    CHARACTER*1
          Specifies the type of Lyapunov equation to be solved, as
          follows:
          = 'C':  Equation (1), continuous-time case;