Lines Matching refs:kplus1
26 integer kplus1;
236 kplus1 = *k + 1;
242 l = kplus1 - j;
251 x[j] *= a[kplus1 + j * a_dim1];
263 l = kplus1 - j;
273 x[jx] *= a[kplus1 + j * a_dim1];
335 kplus1 = *k + 1;
339 l = kplus1 - j;
341 temp *= a[kplus1 + j * a_dim1];
360 l = kplus1 - j;
362 temp *= a[kplus1 + j * a_dim1];
