Lines Matching refs:JX
210 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L
285 JX = KX
288 IF (X(JX).NE.ZERO) THEN
291 IF (NOUNIT) X(JX) = X(JX)/A(KPLUS1,J)
292 TEMP = X(JX)
298 JX = JX - INCX
314 JX = KX
317 IF (X(JX).NE.ZERO) THEN
320 IF (NOUNIT) X(JX) = X(JX)/A(1,J)
321 TEMP = X(JX)
327 JX = JX + INCX
348 JX = KX
350 TEMP = X(JX)
358 X(JX) = TEMP
359 JX = JX + INCX
376 JX = KX
378 TEMP = X(JX)
386 X(JX) = TEMP
387 JX = JX - INCX