ETA
C     .. Array Arguments ..
      DOUBLE PRECISION  A(LDA,*), R(LDR,*), T(LDT,*)

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

<B>Mode Parameters</B>
<PRE>
  DICO    CHARACTER*1
          Specifies the formula to be evaluated, as follows:
          = 'C':  formula (1), "continuous-time" case;
          = 'D':  formula (2), "discrete-time" case.

  UPLO    CHARACTER*1
          Specifies which triangles of the symmetric matrix R and
          triangular matrix T are given, 