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