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...