104 SUBROUTINE crot( N, CX, INCX, CY, INCY, C, S )
112 INTEGER INCX, INCY, N
117 COMPLEX 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 ) - conjg( s )*cx( ix )
157 stemp = c*cx( i ) + s*cy( i )
158 cy( i ) = c*cy( i ) - conjg( s )*cx( i )
subroutine crot(N, CX, INCX, CY, INCY, C, S)
CROT applies a plane rotation with real cosine and complex sine to a pair of complex vectors...