crot(3P)

NAME

crot - apply a plane rotation, where the cos (C) is real and the sin (S) is complex, and the vectors CX and CY are complex

SUBROUTINE CROT(
N, CX, INCX, CY, INCY, C, S )

void crot(long int n, complex ∗cx, long int incx, complex ∗cy,
long int incy, float c, complex ∗s)

INTEGER INCX, INCY, N

REAL C

COMPLEX S

COMPLEX CX( ∗ ), CY( ∗ )

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.

N (input) INTEGER
The number of elements in the vectors CX and CY.

CX (input/output) COMPLEX array, dimension (N)
On input, the vector X. On output, CX is overwritten with C∗X + S∗Y.

INCX (input) INTEGER
The increment between successive values of CY. INCX <> 0.

CY (input/output) COMPLEX array, dimension (N)
On input, the vector Y. On output, CY is overwritten with -CONJG(S)∗X + C∗Y.

INCY (input) INTEGER
The increment between successive values of CY. INCX <> 0.

C (input) REAL

S       (input) COMPLEX
C and S define a rotation
[ C          S ]
[ -conjg(S)   C ]
where C∗C + S∗CONJG(S) = 1.0.

Sun, Inc. — Last change: 20 Sep 1996