Searched refs:Ln (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex51.c | 407 PetscReal z1, z, xm, xl, q, qp, Ln, scale; in leggaulob() local
426 qAndLEvaluation(n, z, &q, &qp, &Ln); in leggaulob()
430 qAndLEvaluation(n, z, &q, &qp, &Ln); in leggaulob()
433 w[j] = 2.0 / (n * (n + 1) * Ln * Ln); /* Compute the weight */ in leggaulob()
438 qAndLEvaluation(n, 0.0, &q, &qp, &Ln); in leggaulob()
440 w[n / 2] = 2.0 / (n * (n + 1) * Ln * Ln); in leggaulob()
448 static void qAndLEvaluation(PetscInt n, PetscReal x, PetscReal *q, PetscReal *qp, PetscReal *Ln) in qAndLEvaluation() argument
464 *Ln = x; in qAndLEvaluation()
470 Lnm1 = *Ln; in qAndLEvaluation()
473 *Ln = (2. * k - 1.) / (1.0 * k) * x * Lnm1 - (k - 1.) / (1.0 * k) * Lnm2; in qAndLEvaluation()
[all …]
|