Lines Matching refs:INCX
1 SUBROUTINE CTPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
133 ELSE IF (INCX.EQ.0) THEN
151 IF (INCX.LE.0) THEN
152 KX = 1 - (N-1)*INCX
153 ELSE IF (INCX.NE.1) THEN
166 IF (INCX.EQ.1) THEN
187 IX = IX + INCX
191 JX = JX + INCX
197 IF (INCX.EQ.1) THEN
211 KX = KX + (N-1)*INCX
219 IX = IX - INCX
223 JX = JX - INCX
234 IF (INCX.EQ.1) THEN
255 JX = KX + (N-1)*INCX
262 IX = IX - INCX
268 IX = IX - INCX
273 JX = JX - INCX
279 IF (INCX.EQ.1) THEN
307 IX = IX + INCX
313 IX = IX + INCX
318 JX = JX + INCX