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.