Lines Matching refs:JX
147 INTEGER I,INFO,IX,J,JX,KPLUS1,KX,L local
221 JX = KX
223 IF (X(JX).NE.ZERO) THEN
224 TEMP = X(JX)
231 IF (NOUNIT) X(JX) = X(JX)*A(KPLUS1,J)
233 JX = JX + INCX
251 JX = KX
253 IF (X(JX).NE.ZERO) THEN
254 TEMP = X(JX)
261 IF (NOUNIT) X(JX) = X(JX)*A(1,J)
263 JX = JX - INCX
286 JX = KX
288 TEMP = X(JX)
297 X(JX) = TEMP
298 JX = JX - INCX
313 JX = KX
315 TEMP = X(JX)
324 X(JX) = TEMP
325 JX = JX + INCX