Lines Matching refs:INCX
1 SUBROUTINE SROTM(N,SX,INCX,SY,INCY,SPARAM) argument
3 INTEGER INCX,INCY,N local
66 IF (.NOT. (INCX.EQ.INCY.AND.INCX.GT.0)) GO TO 70
68 NSTEPS = N*INCX
73 DO 20 I = 1,NSTEPS,INCX
83 DO 40 I = 1,NSTEPS,INCX
95 DO 60 I = 1,NSTEPS,INCX
105 IF (INCX.LT.0) KX = 1 + (1-N)*INCX
117 KX = KX + INCX
129 KX = KX + INCX
143 KX = KX + INCX