SUBROUTINE ZLARGV( N, X, INCX, Y, INCY, C, INCC ) INTEGER INCC, INCX, INCY, N DOUBLE PRECISION C( * ) COMPLEX*16 X( * ), Y( * )
ZLARGV generates a vector of complex plane rotations with real cosines, determined by elements of the complex vectors x and y. For i = 1,2,...,n ( c(i) s(i) ) ( x(i) ) = ( a(i) ) ( -conjg(s(i)) c(i) ) ( y(i) ) = ( 0 )
N (input) INTEGER The number of plane rotations to be generated. X (input/output) COMPLEX*16 array, dimension (1+(N-1)*INCX) On entry, the vector x. On exit, x(i) is overwritten by a(i), for i = 1,...,n. INCX (input) INTEGER The increment between elements of X. INCX > 0. Y (input/output) COMPLEX*16 array, dimension (1+(N-1)*INCY) On entry, the vector y. On exit, the sines of the plane rotations. INCY (input) INTEGER The increment between elements of Y. INCY > 0. C (output) DOUBLE PRECISION array, dimension (1+(N-1)*INCC) The cosines of the plane rotations. INCC (input) INTEGER The increment between elements of C. INCC > 0.