 transformations UU'*H*VV and matrices U, V, YA, YB, YG, YQ, XA,
  XB, XG, and XQ are returned so that

                 [ op(Aout)+U*YA'+XA*V'     G+U*YG'+XG*V'    ]
      UU' H VV = [                                           ].
                 [   Qout+U*YQ'+XQ*V'   op(Bout)+U*YB'+XB*V' ]

  This is an auxiliary routine called by MB04TB.

</PRE>
<A name="Specification"><B><FONT SIZE="+1">Specification</FONT></B></A>
<PRE>
      SUBROUTINE MB03XU( LTRA, LTRB, N, K, NB, A, LDA, B, LDB, G, LDG,
     $     