108 SUBROUTINE zlartv( N, X, INCX, Y, INCY, C, S, INCC )
116 INTEGER incc, incx, incy, n
119 DOUBLE PRECISION c( * )
120 COMPLEX*16 s( * ),
x( * ), y( * )
126 INTEGER i, ic, ix, iy
140 x( ix ) = c( ic )*xi + s( ic )*yi
141 y( iy ) = c( ic )*yi - dconjg( s( ic ) )*xi
subroutine zlartv(N, X, INCX, Y, INCY, C, S, INCC)
ZLARTV applies a vector of plane rotations with real cosines and complex sines to the elements of a p...