Searched refs:Disp (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/tao/leastsquares/impls/pounders/ |
| H A D | pounders.h | 18 PetscReal *Disp; /* nxn */ member
|
| H A D | pounders.c | 686 …for (j = 0; j < mfqP->n; j++) mfqP->Disp[ii + mfqP->npmax * j] = (x[j] - mfqP->xmin[j]) / mfqP->de… in TaoSolve_POUNDERS()
715 …for (j = 0; j < mfqP->n; j++) mfqP->Disp[ii + mfqP->npmax * j] = (x[j] - mfqP->xmin[j]) / mfqP->de… in TaoSolve_POUNDERS()
734 …PetscCallBLAS("LAPACKgesv", LAPACKgesv_(&blasn, &blasm, mfqP->Disp, &blasnpmax, mfqP->iwork, mfqP-… in TaoSolve_POUNDERS()
852 … for (j = 0; j < mfqP->n; j++) mfqP->Disp[i + mfqP->npmax * j] = (x[j] - mfqP->xmin[j]) / deltaold; in TaoSolve_POUNDERS()
858 …n; l++) mfqP->work[k] += mfqP->H[j + mfqP->m * (k + mfqP->n * l)] * mfqP->Disp[i + mfqP->npmax * l… in TaoSolve_POUNDERS()
860 …qP->Fdiff[j * mfqP->n], &ione, &mfqP->Disp[i], &blasnpmax) - 0.5 * BLASdot_(&blasn, mfqP->work, &i… in TaoSolve_POUNDERS()
973 PetscCall(PetscMalloc1(mfqP->npmax * mfqP->n, &mfqP->Disp)); in TaoSetUp_POUNDERS()
1085 PetscCall(PetscFree(mfqP->Disp)); in TaoDestroy_POUNDERS()
|