Lines Matching refs:JX
107 INTEGER I,INFO,IX,J,JX,K,KK,KX
180 JX = KX
182 IF (X(JX).NE.ZERO) THEN
183 TEMP = X(JX)
189 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
191 JX = JX + INCX
212 JX = KX
214 IF (X(JX).NE.ZERO) THEN
215 TEMP = X(JX)
221 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
223 JX = JX - INCX
255 JX = KX + (N-1)*INCX
257 TEMP = X(JX)
258 IX = JX
272 X(JX) = TEMP
273 JX = JX - INCX
300 JX = KX
302 TEMP = X(JX)
303 IX = JX
317 X(JX) = TEMP
318 JX = JX + INCX