103 SUBROUTINE slapll( N, X, INCX, Y, INCY, SSMIN )
111 INTEGER incx, incy, n
122 parameter( zero = 0.0e+0, one = 1.0e+0 )
125 REAL a11, a12, a22, c, ssmax, tau
145 CALL
slarfg( n,
x( 1 ),
x( 1+incx ), incx, tau )
149 c = -tau*
sdot( n,
x, incx, y, incy )
150 CALL
saxpy( n, c,
x, incx, y, incy )
152 CALL
slarfg( n-1, y( 1+incy ), y( 1+2*incy ), incy, tau )
159 CALL
slas2( a11, a12, a22, ssmin, ssmax )
subroutine saxpy(N, SA, SX, INCX, SY, INCY)
SAXPY
subroutine slas2(F, G, H, SSMIN, SSMAX)
SLAS2 computes singular values of a 2-by-2 triangular matrix.
subroutine slarfg(N, ALPHA, X, INCX, TAU)
SLARFG generates an elementary reflector (Householder matrix).
subroutine slapll(N, X, INCX, Y, INCY, SSMIN)
SLAPLL measures the linear dependence of two vectors.
REAL function sdot(N, SX, INCX, SY, INCY)
SDOT