Lines Matching refs:JX
147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
222 JX = KX
224 IF (X(JX).NE.ZERO) THEN
225 TEMP = X(JX)
232 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
234 JX = JX + INCX
252 JX = KX
254 IF (X(JX).NE.ZERO) THEN
255 TEMP = X(JX)
262 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
264 JX = JX - INCX
294 JX = KX
296 TEMP = X(JX)
313 X(JX) = TEMP
314 JX = JX - INCX
336 JX = KX
338 TEMP = X(JX)
355 X(JX) = TEMP
356 JX = JX + INCX