104 SUBROUTINE zrot( N, CX, INCX, CY, INCY, C, S )
112 INTEGER incx, incy, n
117 COMPLEX*16 cx( * ), cy( * )
133 IF( incx.EQ.1 .AND. incy.EQ.1 )
141 $ ix = ( -n+1 )*incx + 1
143 $ iy = ( -n+1 )*incy + 1
145 stemp = c*cx( ix ) + s*cy( iy )
146 cy( iy ) = c*cy( iy ) - dconjg( s )*cx( ix )
157 stemp = c*cx( i ) + s*cy( i )
158 cy( i ) = c*cy( i ) - dconjg( s )*cx( i )