impls/pounders/pounders.c

474   PetscCall(VecDuplicate(mfqP->Fhist[0], &mfqP->Fhist[mfqP->nHist]));
476   PetscCall(pounders_feval(tao, mfqP->Xhist[mfqP->nHist], mfqP->Fhist[mfqP->nHist], &mfqP->Fres[mfqP->nHist]));
643   PetscCall(pounders_feval(tao, mfqP->Xhist[0], mfqP->Fhist[0], &mfqP->Fres[0]));
657     PetscCall(pounders_feval(tao, mfqP->Xhist[i], mfqP->Fhist[i], &mfqP->Fres[i]));
664   PetscCall(VecCopy(mfqP->Fhist[mfqP->minindex], tao->ls_res));
681     PetscCall(VecGetArrayRead(mfqP->Fhist[mfqP->minindex], &fmin));
689       PetscCall(VecGetArray(mfqP->Fhist[i], &f));
691       PetscCall(VecRestoreArray(mfqP->Fhist[i], &f));
696     PetscCall(VecRestoreArrayRead(mfqP->Fhist[mfqP->minindex], &fmin));
706     PetscCall(VecScatterBegin(mfqP->scatterf, mfqP->Fhist[mfqP->minindex], mfqP->localfmin, INSERT_VALUES, SCATTER_FORWARD));
707     PetscCall(VecScatterEnd(mfqP->scatterf, mfqP->Fhist[mfqP->minindex], mfqP->localfmin, INSERT_VALUES, SCATTER_FORWARD));
718       PetscCall(VecScatterBegin(mfqP->scatterf, mfqP->Fhist[ii], mfqP->localf, INSERT_VALUES, SCATTER_FORWARD));
719       PetscCall(VecScatterEnd(mfqP->scatterf, mfqP->Fhist[ii], mfqP->localf, INSERT_VALUES, SCATTER_FORWARD));
768     PetscCall(VecDuplicate(tao->ls_res, &mfqP->Fhist[mfqP->nHist]));
773     PetscCall(pounders_feval(tao, mfqP->Xhist[mfqP->nHist], mfqP->Fhist[mfqP->nHist], &mfqP->Fres[mfqP->nHist]));
801       PetscCall(VecCopy(mfqP->Fhist[mfqP->minindex], tao->ls_res));
854       PetscCall(VecGetArray(mfqP->Fhist[mfqP->model_indices[i]], &f));
862       PetscCall(VecRestoreArray(mfqP->Fhist[mfqP->model_indices[i]], &f));
868     PetscCall(VecGetArrayRead(mfqP->Fhist[mfqP->minindex], &fmin));
937   PetscCall(PetscMalloc1(tao->max_funcs + 100, &mfqP->Fhist));
940     PetscCall(VecDuplicate(tao->ls_res, &mfqP->Fhist[i]));
1099     PetscCall(VecDestroy(&mfqP->Fhist[i]));
1104   PetscCall(PetscFree(mfqP->Fhist));