Lines Matching refs:TAU
21 * SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
26 * REAL TAU
41 *> H = I - tau * v * v**T
43 *> where tau is a real scalar and v is a real vector.
45 *> If tau = 0, then H is taken to be the unit matrix.
76 *> TAU = 0.
85 *> \param[in] TAU
87 *> TAU is REAL
88 *> The value tau in the representation of H.
125 SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
135 REAL TAU
164 IF( TAU.NE.ZERO ) THEN
205 CALL SGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
220 CALL SGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
