Lines Matching refs:INCX
1 SUBROUTINE ZTBMV(UPLO,TRANS,DIAG,N,K,A,LDA,X,INCX) argument
3 INTEGER INCX,K,LDA,N local
177 ELSE IF (INCX.EQ.0) THEN
195 IF (INCX.LE.0) THEN
196 KX = 1 - (N-1)*INCX
197 ELSE IF (INCX.NE.1) THEN
210 IF (INCX.EQ.1) THEN
230 IX = IX + INCX
234 JX = JX + INCX
235 IF (J.GT.K) KX = KX + INCX
239 IF (INCX.EQ.1) THEN
251 KX = KX + (N-1)*INCX
260 IX = IX - INCX
264 JX = JX - INCX
265 IF ((N-J).GE.K) KX = KX - INCX
275 IF (INCX.EQ.1) THEN
293 KX = KX + (N-1)*INCX
297 KX = KX - INCX
304 IX = IX - INCX
310 IX = IX - INCX
314 JX = JX - INCX
318 IF (INCX.EQ.1) THEN
339 KX = KX + INCX
346 IX = IX + INCX
352 IX = IX + INCX
356 JX = JX + INCX