Lines Matching defs:INCV
21 * SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
25 * INTEGER INCV, LDC, M, N
73 *> (1 + (M-1)*abs(INCV)) if SIDE = 'L'
74 *> or (1 + (N-1)*abs(INCV)) if SIDE = 'R'
79 *> \param[in] INCV
81 *> INCV is INTEGER
82 *> The increment between elements of v. INCV <> 0.
125 SUBROUTINE DLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
134 INTEGER INCV, LDC, M, N
172 IF( INCV.GT.0 ) THEN
173 I = 1 + (LASTV-1) * INCV
180 I = I - INCV
200 CALL DGEMV( 'Transpose', LASTV, LASTC, ONE, C, LDC, V, INCV,
205 CALL DGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
216 $ V, INCV, ZERO, WORK, 1 )
220 CALL DGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )