Lines Matching refs:INCX
1 SUBROUTINE DTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) argument
3 INTEGER INCX,K,LDA,N local
177 ELSE IF (INCX.EQ.0) THEN
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