108 SUBROUTINE clartv( N, X, INCX, Y, INCY, C, S, INCC )
116 INTEGER incc, incx, incy, n
120 COMPLEX s( * ), x( * ), y( * )
126 INTEGER i, ic, ix, iy
140 x( ix ) = c( ic )*xi + s( ic )*yi
141 y( iy ) = c( ic )*yi - conjg( s( ic ) )*xi
subroutine clartv(N, X, INCX, Y, INCY, C, S, INCC)
CLARTV applies a vector of plane rotations with real cosines and complex sines to the elements of a p...