Lines Matching refs:INCX
1 SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX)
3 INTEGER INCX,K,LDA,N
118 * ( 1 + ( n - 1 )*abs( INCX ) ).
123 * INCX - INTEGER.
124 * On entry, INCX specifies the increment for the elements of
125 * X. INCX must not be zero.
177 ELSE IF (INCX.EQ.0) THEN
192 * will be ( N - 1 )*INCX too small for descending loops.
194 IF (INCX.LE.0) THEN
195 KX = 1 - (N-1)*INCX
196 ELSE IF (INCX.NE.1) THEN
209 IF (INCX.EQ.1) THEN
229 IX = IX + INCX
233 JX = JX + INCX
234 IF (J.GT.K) KX = KX + INCX
238 IF (INCX.EQ.1) THEN
250 KX = KX + (N-1)*INCX
259 IX = IX - INCX
263 JX = JX - INCX
264 IF ((N-J).GE.K) KX = KX - INCX
274 IF (INCX.EQ.1) THEN
285 KX = KX + (N-1)*INCX
289 KX = KX - INCX
295 IX = IX - INCX
298 JX = JX - INCX
302 IF (INCX.EQ.1) THEN
316 KX = KX + INCX
322 IX = IX + INCX
325 JX = JX + INCX