Lines Matching refs:INCX
1 SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) argument
4 INTEGER INCX,INCY,N local
127 ELSE IF (INCX.EQ.0) THEN
144 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN
145 IF (INCX.GT.0) THEN
148 KX = 1 - (N-1)*INCX
167 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
193 IX = IX + INCX
201 JX = JX + INCX
210 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
237 IX = IX + INCX
244 JX = JX + INCX