###
Applying a row-permuted Givens transformation to two row vectors

**[Specification]**
**[Arguments]**
**[Method]**
**[References]**
**[Comments]**
**[Example]**
**Purpose**

To perform the Givens transformation, defined by C (cos) and S
(sin), and interchange the vectors involved, i.e.
|X(i)| | 0 1 | | C S | |X(i)|
| | := | | x | | x | |, i = 1,...N.
|Y(i)| | 1 0 | |-S C | |Y(i)|
REMARK. This routine is a modification of DROT from BLAS.
This routine is called only by the SLICOT routines MB04TX
and MB04VX.

**Numerical Aspects**
The algorithm is backward stable.

**Specification**
SUBROUTINE MB04TU( N, X, INCX, Y, INCY, C, S )
C .. Scalar Arguments ..
INTEGER INCX, INCY, N
DOUBLE PRECISION C, S
C .. Array Arguments ..
DOUBLE PRECISION X(*), Y(*)

**Further Comments**
None

**Example**
**Program Text**

None

**Program Data**
None

**Program Results**
None

**Return to Supporting Routines index**