10 …TaoLineSearch ls, PetscReal *stx, PetscReal *fx, PetscReal *dx, PetscReal *sty, PetscReal *fy, Pet…
29 …PetscCall(PetscViewerASCIIPrintf(ls->viewer, "sty: %g, fy: %g, dgy: %g\n", (double)mt->sty, (doubl…  in TaoLineSearchMonitor_MT()
38   PetscReal         dgx, dgy, dg, dg2, fx, fy, stx, sty, dgtest;  in TaoLineSearchApply_MT()  local
108   sty = 0.0;  in TaoLineSearchApply_MT()
116       ls->stepmin = PetscMin(stx, sty);  in TaoLineSearchApply_MT()
117       ls->stepmax = PetscMax(stx, sty);  in TaoLineSearchApply_MT()
163     mt->sty = sty;  in TaoLineSearchApply_MT()
230       fym  = fy - sty * dgtest;  in TaoLineSearchApply_MT()
237       PetscCall(Tao_mcstep(ls, &stx, &fxm, &dgxm, &sty, &fym, &dgym, &ls->step, &fm, &dgm));  in TaoLineSearchApply_MT()
240       fy  = fym + sty * dgtest; /* gradient values */  in TaoLineSearchApply_MT()
245       PetscCall(Tao_mcstep(ls, &stx, &fx, &dgx, &sty, &fy, &dgy, &ls->step, f, &dg));  in TaoLineSearchApply_MT()
250       if (PetscAbsReal(sty - stx) >= 0.66 * width1) ls->step = stx + 0.5 * (sty - stx);  in TaoLineSearchApply_MT()
252       width  = PetscAbsReal(sty - stx);  in TaoLineSearchApply_MT()
363 …TaoLineSearch ls, PetscReal *stx, PetscReal *fx, PetscReal *dx, PetscReal *sty, PetscReal *fy, Pet…  in Tao_mcstep()  argument
372 …PetscCheck(!mtP->bracket || (*stp > PetscMin(*stx, *sty) && *stp < PetscMax(*stx, *sty)), PETSC_CO…  in Tao_mcstep()
468       theta  = 3 * (*fp - *fy) / (*sty - *stp) + *dy + *dp;  in Tao_mcstep()
472       if (*stp > *sty) gamma1 = -gamma1;  in Tao_mcstep()
476       stpc = *stp + r * (*sty - *stp);  in Tao_mcstep()
489     *sty = *stp;  in Tao_mcstep()
494       *sty = *stx;  in Tao_mcstep()
508     if (*sty > *stx) *stp = PetscMin(*stx + 0.66 * (*sty - *stx), *stp);  in Tao_mcstep()
509     else *stp = PetscMax(*stx + 0.66 * (*sty - *stx), *stp);  in Tao_mcstep()