FONT></B>
<PRE>
  To compute the matrix formula
  _
  R = alpha*( op( A )'*op( T )'*op( T ) + op( T )'*op( T )*op( A ) )
      + beta*R,                                                  (1)

  if DICO = 'C', or
  _
  R = alpha*( op( A )'*op( T )'*op( T )*op( A ) -  op( T )'*op( T ))
      + beta*R,                                                  (2)
                                                          _
  if DICO = 'D', where alpha and beta are scalars, R, and R are
  symmetric matrices, T is a triang