Searched refs:wa1 (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | gqt.c | 214 …f, PetscReal *x, PetscInt *retinfo, PetscInt *retits, PetscReal *z, PetscReal *wa1, PetscReal *wa2) in gqt() argument
236 PetscCallBLAS("BLAScopy", BLAScopy_(&blasn, a, &blasldap1, wa1, &blas1)); in gqt()
250 for (j = 0; j < n; j++) wa2[j] = wa2[j] - PetscAbs(wa1[j]); in gqt()
258 pars = PetscMax(pars, -wa1[j]); in gqt()
259 parl = PetscMax(parl, wa1[j] + wa2[j]); in gqt()
260 paru = PetscMax(paru, -wa1[j] + wa2[j]); in gqt()
288 for (j = 0; j < n; j++) a[j + j * lda] = wa1[j] + par; in gqt()
368 a[indef - 1 + (indef - 1) * lda] = wa1[indef - 1] + par; in gqt()
422 PetscCallBLAS("BLAScopy", BLAScopy_(&blasn, wa1, &blas1, a, &iblas)); in gqt()
|