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