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 slapll(N, X, INCX, Y, INCY, SSMIN)
SLAPLL measures the linear dependence of two vectors.
subroutine slas2(F, G, H, SSMIN, SSMAX)
SLAS2 computes singular values of a 2-by-2 triangular matrix.
subroutine saxpy(N, SA, SX, INCX, SY, INCY)
SAXPY
subroutine slarfg(N, ALPHA, X, INCX, TAU)
SLARFG generates an elementary reflector (Householder matrix).