Loading...
Searching...
No Matches

## crot()

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

CROT applies a plane rotation with real cosine and complex sine to a pair of complex vectors.

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

Purpose:

      !>
      !> CROT applies a plane rotation, where the cos (C) is real and the
      !> sin (S) is complex, and the vectors CX and CY 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 -CONJG(S)*X + C*Y.
      !>

  [in]

  INCY

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

  [in]

  C

      !>          C is REAL
      !>

  [in]

  S

      !>          S is COMPLEX
      !>          C and S define a rotation
      !>             [  C          S  ]
      !>             [ -conjg(S)   C  ]
      !>          where C*C + S*CONJG(S) = 1.0.
      !>

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