Lines Matching refs:INCX

1       SUBROUTINE ZHPR(UPLO,N,ALPHA,X,INCX,AP)  argument
4       INTEGER INCX,N  local
116       ELSE IF (INCX.EQ.0) THEN
130       IF (INCX.LE.0) THEN
131           KX = 1 - (N-1)*INCX
132       ELSE IF (INCX.NE.1) THEN
144           IF (INCX.EQ.1) THEN
167                           IX = IX + INCX
173                   JX = JX + INCX
181           IF (INCX.EQ.1) THEN
204                           IX = IX + INCX
210                   JX = JX + INCX