Lines Matching defs:kk
23 integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
216 kk = 1;
226 k = kk;
234 y[j] = y[j] + temp1 * ap[kk + j - 1] + *alpha * temp2;
235 kk += j;
247 i__2 = kk + j - 2;
248 for (k = kk; k <= i__2; ++k) {
255 y[jy] = y[jy] + temp1 * ap[kk + j - 1] + *alpha * temp2;
258 kk += j;
271 y[j] += temp1 * ap[kk];
272 k = kk + 1;
281 kk += *n - j + 1;
291 y[jy] += temp1 * ap[kk];
294 i__2 = kk + *n - j;
295 for (k = kk + 1; k <= i__2; ++k) {
305 kk += *n - j + 1;
