Lines Matching refs:work2
141 …P->gqt_maxits, gnorm, qmin, mfqP->Xsubproblem, &info, &its, mfqP->work, mfqP->work2, mfqP->work3)); in gqtwrap()
514 for (j = 0; j < mfqP->n; j++) mfqP->work2[j] = mfqP->Gres[j]; in modelimprove()
515 …asn, &half, mfqP->Hres, &blasn, &mfqP->Q_tmp[i * mfqP->npmax], &blas1, &one, mfqP->work2, &blas1)); in modelimprove()
516 …ot", mfqP->work[i] = BLASdot_(&blasn, &mfqP->Q_tmp[i * mfqP->npmax], &blas1, mfqP->work2, &blas1)); in modelimprove()
543 PetscCallBLAS("BLAScopy", BLAScopy_(&blasn, mfqP->work, &ione, mfqP->work2, &ione)); in affpoints()
550 …r_("R", "N", &ione, &blasn, &blask, mfqP->Q, &blasnpmax, mfqP->tau, mfqP->work2, &ione, mfqP->mwor… in affpoints()
553 PetscCallBLAS("BLASnrm2", proj = BLASnrm2_(&blasj, &mfqP->work2[mfqP->nmodelpoints], &ione)); in affpoints()
786 mfqP->work2[k] = 0.0; in TaoSolve_POUNDERS()
787 …for (l = 0; l < mfqP->n; l++) mfqP->work2[k] += mfqP->H[j + mfqP->m * (k + l * mfqP->n)] * mfqP->w… in TaoSolve_POUNDERS()
790 mfqP->C[j] += mfqP->work[i] * (mfqP->Fdiff[i + mfqP->n * j] + 0.5 * mfqP->work2[i]); in TaoSolve_POUNDERS()
791 mfqP->Fdiff[i + mfqP->n * j] += mfqP->work2[i]; in TaoSolve_POUNDERS()
797 …emv_("N", &blasn, &blasn, &one, mfqP->Hres, &blasn, mfqP->work, &ione, &zero, mfqP->work2, &ione)); in TaoSolve_POUNDERS()
798 for (i = 0; i < mfqP->n; i++) mfqP->Gres[i] += mfqP->work2[i]; in TaoSolve_POUNDERS()
949 PetscCall(PetscMalloc1(mfqP->n, &mfqP->work2)); in TaoSetUp_POUNDERS()
1063 PetscCall(PetscFree(mfqP->work2)); in TaoDestroy_POUNDERS()