SUBROUTINE ZLACRT( N, CX, INCX, CY, INCY, C, S ) INTEGER INCX, INCY, N COMPLEX*16 C, S COMPLEX*16 CX( * ), CY( * )
ZLACRT applies a plane rotation, where the cos and sin (C and S) are 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*16 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*16 array, dimension (N) On input, the vector Y. On output, CY is overwritten with -S*X + C*Y. INCY (input) INTEGER The increment between successive values of CY. INCX <> 0. C (input) COMPLEX*16 S (input) COMPLEX*16 C and S define a complex rotation [ C S ] [ -S C ] where C*C + S*S = 1.0.