Lines Matching refs:JX
110 INTEGER I,INFO,IX,J,JX,K,KK,KX
179 JX = KX + (N-1)*INCX
181 IF (X(JX).NE.ZERO) THEN
182 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
183 TEMP = X(JX)
184 IX = JX
190 JX = JX - INCX
210 JX = KX
212 IF (X(JX).NE.ZERO) THEN
213 IF (NOUNIT) X(JX) = X(JX)/AP(KK)
214 TEMP = X(JX)
215 IX = JX
221 JX = JX + INCX
245 JX = KX
247 TEMP = X(JX)
254 X(JX) = TEMP
255 JX = JX + INCX
275 JX = KX
277 TEMP = X(JX)
284 X(JX) = TEMP
285 JX = JX - INCX
