Lines Matching refs:INCX
1 SUBROUTINE CTPSV(UPLO,TRANS,DIAG,N,AP,X,INCX)
3 INTEGER INCX,N
81 * ( 1 + ( n - 1 )*abs( INCX ) ).
86 * INCX - INTEGER.
87 * On entry, INCX specifies the increment for the elements of
88 * X. INCX must not be zero.
136 ELSE IF (INCX.EQ.0) THEN
152 * will be ( N - 1 )*INCX too small for descending loops.
154 IF (INCX.LE.0) THEN
155 KX = 1 - (N-1)*INCX
156 ELSE IF (INCX.NE.1) THEN
169 IF (INCX.EQ.1) THEN
183 JX = KX + (N-1)*INCX
190 IX = IX - INCX
194 JX = JX - INCX
200 IF (INCX.EQ.1) THEN
221 IX = IX + INCX
225 JX = JX + INCX
236 IF (INCX.EQ.1) THEN
264 IX = IX + INCX
270 IX = IX + INCX
275 JX = JX + INCX
281 IF (INCX.EQ.1) THEN
302 KX = KX + (N-1)*INCX
310 IX = IX - INCX
316 IX = IX - INCX
321 JX = JX - INCX