Lines Matching refs:TAU
21 * SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
26 * COMPLEX TAU
42 *> H = I - tau * v * v**H
44 *> where tau is a complex scalar and v is a complex vector.
46 *> If tau = 0, then H is taken to be the unit matrix.
48 *> To apply H**H (the conjugate transpose of H), supply conjg(tau) instead
49 *> tau.
80 *> TAU = 0.
89 *> \param[in] TAU
91 *> TAU is COMPLEX
92 *> The value tau in the representation of H.
129 SUBROUTINE CLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
139 COMPLEX TAU
169 IF( TAU.NE.ZERO ) THEN
210 CALL CGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
225 CALL CGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
