MB04TU

Applying a row-permuted Givens transformation to two row vectors

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.

  The algorithm is backward stable.

      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(*)

  None

Program Text

  None

  None

  None