Lines Matching refs:TAU
21 * SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
25 * REAL ALPHA, TAU
46 *> H = I - tau * ( 1 ) * ( 1 v**T ) ,
49 *> where tau is a real scalar and v is a real (n-1)-element
52 *> If the elements of x are all zero, then tau = 0 and H is taken to be
55 *> Otherwise 1 <= tau <= 2.
88 *> \param[out] TAU
90 *> TAU is REAL
91 *> The value tau.
107 SUBROUTINE SLARFG( N, ALPHA, X, INCX, TAU )
116 REAL ALPHA, TAU
145 TAU = ZERO
155 TAU = ZERO
181 TAU = ( BETA-ALPHA ) / BETA
