Lines Matching refs:JX
107 INTEGER I,INFO,IX,J,JX,K,KK,KX local
176 JX = KX
178 IF (X(JX).NE.ZERO) THEN
179 TEMP = X(JX)
185 IF (NOUNIT) X(JX) = X(JX)*AP(KK+J-1)
187 JX = JX + INCX
208 JX = KX
210 IF (X(JX).NE.ZERO) THEN
211 TEMP = X(JX)
217 IF (NOUNIT) X(JX) = X(JX)*AP(KK-N+J)
219 JX = JX - INCX
243 JX = KX + (N-1)*INCX
245 TEMP = X(JX)
246 IX = JX
252 X(JX) = TEMP
253 JX = JX - INCX
272 JX = KX
274 TEMP = X(JX)
275 IX = JX
281 X(JX) = TEMP
282 JX = JX + INCX