Lines Matching refs:INCX
1 SUBROUTINE STPMV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
130 ELSE IF (INCX.EQ.0) THEN
147 IF (INCX.LE.0) THEN
148 KX = 1 - (N-1)*INCX
149 ELSE IF (INCX.NE.1) THEN
162 IF (INCX.EQ.1) THEN
183 IX = IX + INCX
187 JX = JX + INCX
193 IF (INCX.EQ.1) THEN
207 KX = KX + (N-1)*INCX
215 IX = IX - INCX
219 JX = JX - INCX
230 IF (INCX.EQ.1) THEN
243 JX = KX + (N-1)*INCX
249 IX = IX - INCX
253 JX = JX - INCX
259 IF (INCX.EQ.1) THEN
278 IX = IX + INCX
282 JX = JX + INCX