ng M*K-by-R part of
          this array contains the updated matrix C.
          On exit with TRANS = 'T' or TRANS = 'C', the leading
          N*L-by-R part of this array contains the updated matrix C.

  LDC     INTEGER
          The leading dimension of the array C.
          LDC &gt;= MAX(1,M*K),  if TRANS = 'N';
          LDC &gt;= MAX(1,N*L),  if TRANS = 'T' or TRANS = 'C'.

</PRE>
<B>Workspace</B>
<PRE>
  DWORK   DOUBLE PRECISION array, dimension (LDWORK)
          On exit, if INFO = 0,  DWORK(1)  r