112 SUBROUTINE zlar2v( N, X, Y, Z, INCX, C, S, INCC )
120 INTEGER INCC, INCX, N
123 DOUBLE PRECISION C( * )
124 COMPLEX*16 S( * ), X( * ), Y( * ), Z( * )
131 DOUBLE PRECISION CI, SII, SIR, T1I, T1R, T5, T6, XI, YI, ZII,
133 COMPLEX*16 SI, T2, T3, T4, ZI
136 INTRINSIC dble, dcmplx, dconjg, dimag
152 t1r = sir*zir - sii*zii
153 t1i = sir*zii + sii*zir
155 t3 = t2 - dconjg( si )*xi
156 t4 = dconjg( t2 ) + si*yi
159 x( ix ) = ci*t5 + ( sir*dble( t4 )+sii*dimag( t4 ) )
160 y( ix ) = ci*t6 - ( sir*dble( t3 )-sii*dimag( t3 ) )
161 z( ix ) = ci*t3 + dconjg( si )*dcmplx( t6, t1i )
subroutine zlar2v(N, X, Y, Z, INCX, C, S, INCC)
ZLAR2V applies a vector of plane rotations with real cosines and complex sines from both sides to a s...