109 SUBROUTINE dlartv( N, X, INCX, Y, INCY, C, S, INCC )
117 INTEGER incc, incx, incy, n
120 DOUBLE PRECISION c( * ), s( * ),
x( * ), y( * )
126 INTEGER i, ic, ix, iy
127 DOUBLE PRECISION xi, yi
137 x( ix ) = c( ic )*xi + s( ic )*yi
138 y( iy ) = c( ic )*yi - s( ic )*xi
subroutine dlartv(N, X, INCX, Y, INCY, C, S, INCC)
DLARTV applies a vector of plane rotations with real cosines and real sines to the elements of a pair...