Lines Matching refs:INCY
1 SUBROUTINE ZHPR2(UPLO,N,ALPHA,X,INCX,Y,INCY,AP) argument
4 INTEGER INCX,INCY,N local
129 ELSE IF (INCY.EQ.0) THEN
144 IF ((INCX.NE.1) .OR. (INCY.NE.1)) THEN
150 IF (INCY.GT.0) THEN
153 KY = 1 - (N-1)*INCY
167 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
194 IY = IY + INCY
202 JY = JY + INCY
210 IF ((INCX.EQ.1) .AND. (INCY.EQ.1)) THEN
238 IY = IY + INCY
245 JY = JY + INCY