   If TYPEG = 'D' and P &gt; K,                   x = 5*K;
          If (TYPEG = 'C' or TYPEG = 'R') and P = K,  x = 4*K;
          If (TYPEG = 'C' or TYPEG = 'R') and P &gt; K,  x = 6*K.
          On entry, the first x elements of this array must contain
          Givens and modified hyperbolic rotation parameters, and
          scalar factors of the Householder transformations as
          returned by MB02CU.

</PRE>
<B>Workspace</B>
<PRE>
  DWORK   DOUBLE PRECISION array, dimension (LDWORK)
          On 