105 SUBROUTINE slargv( N, X, INCX, Y, INCY, C, INCC )
113 INTEGER incc, incx, incy, n
116 REAL c( * ),
x( * ), y( * )
123 parameter( zero = 0.0e+0, one = 1.0e+0 )
126 INTEGER i, ic, ix, iy
142 ELSE IF( f.EQ.zero )
THEN
146 ELSE IF( abs( f ).GT.abs( g ) )
THEN
subroutine slargv(N, X, INCX, Y, INCY, C, INCC)
SLARGV generates a vector of plane rotations with real cosines and real sines.