Loading...
Searching...
No Matches

## clacrt()

subroutine clacrt | ( | integer | n,
|  | complex, dimension( * ) | cx,
|  | integer | incx,
|  | complex, dimension( * ) | cy,
|  | integer | incy,
|  | complex | c,
|  | complex | s )

CLACRT performs a linear transformation of a pair of complex vectors.

Download CLACRT + dependencies [TGZ] [ZIP] [TXT]

Purpose:

      !>
      !> CLACRT performs the operation
      !>
      !>    (  c  s )( x )  ==> ( x )
      !>    ( -s  c )( y )      ( y )
      !>
      !> where c and s are complex and the vectors x and y are complex.
      !>

Parameters

  [in]

  N

      !>          N is INTEGER
      !>          The number of elements in the vectors CX and CY.
      !>

  [in,out]

  CX

      !>          CX is COMPLEX array, dimension (N)
      !>          On input, the vector x.
      !>          On output, CX is overwritten with c*x + s*y.
      !>

  [in]

  INCX

      !>          INCX is INTEGER
      !>          The increment between successive values of CX.  INCX <> 0.
      !>

  [in,out]

  CY

      !>          CY is COMPLEX array, dimension (N)
      !>          On input, the vector y.
      !>          On output, CY is overwritten with -s*x + c*y.
      !>

  [in]

  INCY

      !>          INCY is INTEGER
      !>          The increment between successive values of CY.  INCY <> 0.
      !>

  [in]

  C

      !>          C is COMPLEX
      !>

  [in]

  S

      !>          S is COMPLEX
      !>          C and S define the matrix
      !>             [  C   S  ].
      !>             [ -S   C  ]
      !>

Author
  Univ. of Tennessee
  Univ. of California Berkeley
  Univ. of Colorado Denver
  NAG Ltd.