Lines Matching refs:INCX
1 SUBROUTINE STPSV(UPLO,TRANS,DIAG,N,AP,X,INCX) argument
3 INTEGER INCX,N local
133 ELSE IF (INCX.EQ.0) THEN
150 IF (INCX.LE.0) THEN
151 KX = 1 - (N-1)*INCX
152 ELSE IF (INCX.NE.1) THEN
165 IF (INCX.EQ.1) THEN
179 JX = KX + (N-1)*INCX
186 IX = IX - INCX
190 JX = JX - INCX
196 IF (INCX.EQ.1) THEN
217 IX = IX + INCX
221 JX = JX + INCX
232 IF (INCX.EQ.1) THEN
251 IX = IX + INCX
255 JX = JX + INCX
261 IF (INCX.EQ.1) THEN
274 KX = KX + (N-1)*INCX
281 IX = IX - INCX
285 JX = JX - INCX