Lines Matching refs:jx
23 integer i__, j, l, ix, jx, kx, info;
257 jx = kx;
260 if (x[jx] != 0.) {
261 temp = x[jx];
273 x[jx] *= a[kplus1 + j * a_dim1];
276 jx += *incx;
304 jx = kx;
306 if (x[jx] != 0.) {
307 temp = x[jx];
319 x[jx] *= a[j * a_dim1 + 1];
322 jx -= *incx;
355 jx = kx;
357 temp = x[jx];
372 x[jx] = temp;
373 jx -= *incx;
397 jx = kx;
400 temp = x[jx];
415 x[jx] = temp;
416 jx += *incx;
