Lines Matching refs:JX
110 INTEGER I,INFO,IX,J,JX,K,KK,KX
183 JX = KX + (N-1)*INCX
185 IF (X(JX).NE.ZERO) THEN
186 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
187 TEMP = X(JX)
188 IX = JX
194 JX = JX - INCX
214 JX = KX
216 IF (X(JX).NE.ZERO) THEN
217 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
218 TEMP = X(JX)
219 IX = JX
225 JX = JX + INCX
257 JX = KX
259 TEMP = X(JX)
274 X(JX) = TEMP
275 JX = JX + INCX
303 JX = KX
305 TEMP = X(JX)
320 X(JX) = TEMP
321 JX = JX - INCX
