Lines Matching refs:l
8 PetscInt Nk, Mk, i, j, l; in CheckPullback() local
40 for (l = 0; l < k; l++) { in CheckPullback()
44 for (j = 0; j < N; j++) sum += L[i * N + j] * x[l * N + j]; in CheckPullback()
45 Lx[l * M + i] = sum; in CheckPullback()
153 PetscInt l; in main() local
156 … for (l = 0; l < k; l++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " %" PetscInt_FMT, subset[l])); in main()
158 … for (l = k; l < N; l++) PetscCall(PetscPrintf(PETSC_COMM_WORLD, " %" PetscInt_FMT, subset[l])); in main()
190 PetscInt l; in main() local
194 for (l = 0; l < N; l++) wvcheck += w[l] * v[l]; in main()
229 PetscInt l; in main() local
237 for (l = 0; l < N * k; l++) x[l] = v[l]; in main()
238 for (l = 0; l < N * k; l++) axv[l] = v[l]; in main()
239 for (l = 0; l < N; l++) { in main()
243 x[j * N + l] = val; in main()
244 axv[j * N + l] += alpha * val; in main()
255 PetscInt l, m; in main() local
260 l = j; in main()
261 while (l == j) { in main()
263 l = (PetscInt)rl; in main()
269 swapv[j * N + m] = v[l * N + m]; in main()
270 swapv[l * N + m] = v[j * N + m]; in main()
274 …ponents %" PetscInt_FMT " & %" PetscInt_FMT ", wswapv (%g) != -wv (%g)", j, l, (double)wswapv, (do… in main()
278 PetscInt Nj, Njk, l, JKj; in main() local
288 for (l = 0; l < Nj; l++) PetscCall(PetscRandomGetValueReal(rand, &u[l])); in main()
289 for (l = 0; l < N * (j + k); l++) PetscCall(PetscRandomGetValueReal(rand, &x[l])); in main()
310 for (l = 0; l < JKj; l++) { in main()
315 PetscCall(PetscDTEnumSplit(j + k, j, l, split, &isOdd)); in main()
336 for (l = 0; l < Njk; l++) { in main()
340 for (m = 0; m < Nk; m++) sum += uWwmat[l * Nk + m] * w[m]; in main()
341 uWwcheck[l] = sum; in main()
342 diff += PetscSqr(uWwcheck[l] - uWw[l]); in main()
343 norm += PetscSqr(uWwcheck[l]) + PetscSqr(uWw[l]); in main()
354 PetscInt Mk, l; in main() local
358 for (l = 0; l < M * N; l++) PetscCall(PetscRandomGetValueReal(rand, &L[l])); in main()
359 for (l = 0; l < Mk; l++) PetscCall(PetscRandomGetValueReal(rand, &u[l])); in main()
360 for (l = 0; l < M * k; l++) PetscCall(PetscRandomGetValueReal(rand, &x[l])); in main()
376 PetscInt Nkm, l, m; in main() local
389 for (l = 0; l < Nk * k; l++) { in main()
390 PetscInt row = indices[l][0]; in main()
391 PetscInt col = indices[l][1]; in main()
392 PetscInt x = indices[l][2]; in main()
398 for (l = 0; l < Nkm * Nk; l++) matcheck[l] = 0.; in main()
399 for (l = 0; l < Nk * k; l++) { in main()
400 PetscInt row = indices[l][0]; in main()
401 PetscInt col = indices[l][1]; in main()
402 PetscInt x = indices[l][2]; in main()
412 for (l = 0; l < Nkm * Nk; l++) { in main()
413 diffMat += PetscSqr(PetscAbsReal(matcheck[l] - intv0mat[l])); in main()
414 normMat += PetscSqr(matcheck[l]) + PetscSqr(intv0mat[l]); in main()
421 for (l = 0; l < Nkm; l++) { in main()
424 for (m = 0; m < Nk; m++) sum += intv0mat[l * Nk + m] * w[m]; in main()
425 wIntv0check[l] = sum; in main()
427 diffMat += PetscSqr(PetscAbsReal(wIntv0check[l] - wIntv0[l])); in main()
428 normMat += PetscSqr(wIntv0check[l]) + PetscSqr(wIntv0[l]); in main()
453 PetscInt l; in main() local
470 for (l = 0; l < Nk; l++) PetscCall(PetscRandomGetValueReal(rand, &u[l])); in main()
473 for (l = 0; l < Nk; l++) starwdotu += starw[l] * u[l]; in main()
479 for (l = 0; l < Nk; l++) { in main()
480 diff += PetscSqr(w[l] - (isOdd ? -starstarw[l] : starstarw[l])); in main()
481 norm += PetscSqr(w[l]) + PetscSqr(starstarw[l]); in main()