112 SUBROUTINE clar2v( N, X, Y, Z, INCX, C, S, INCC )
120 INTEGER incc, incx, n
124 COMPLEX s( * ), x( * ), y( * ), z( * )
131 REAL ci, sii, sir, t1i, t1r, t5, t6, xi, yi, zii,
133 COMPLEX si, t2, t3, t4, zi
136 INTRINSIC aimag, cmplx, conjg, real
152 t1r = sir*zir - sii*zii
153 t1i = sir*zii + sii*zir
155 t3 = t2 - conjg( si )*xi
156 t4 = conjg( t2 ) + si*yi
159 x( ix ) = ci*t5 + ( sir*
REAL( t4 )+sii*aimag( t4 ) )
160 y( ix ) = ci*t6 - ( sir*
REAL( t3 )-sii*aimag( t3 ) )
161 z( ix ) = ci*t3 + conjg( si )*cmplx( t6, t1i )