10 static PetscErrorCode Tao_mcstep(TaoLineSearch ls, PetscReal *stx, PetscReal *fx, PetscReal *dx, Pe…
28 …rintf(ls->viewer, "stx: %g, fx: %g, dgx: %g\n", (double)mt->stx, (double)mt->fx, (double)mt->dgx));  in TaoLineSearchMonitor_MT()
38   PetscReal         dgx, dgy, dg, dg2, fx, fy, stx, sty, dgtest;  in TaoLineSearchApply_MT()  local
106   fx  = finit;  in TaoLineSearchApply_MT()
161     mt->fx  = fx;  in TaoLineSearchApply_MT()
227     if (stage1 && *f <= fx && *f > ftest1) {  in TaoLineSearchApply_MT()
229       fxm  = fx - stx * dgtest;      /* and derivatives */  in TaoLineSearchApply_MT()
239       fx  = fxm + stx * dgtest; /* Reset the function and */  in TaoLineSearchApply_MT()
245       PetscCall(Tao_mcstep(ls, &stx, &fx, &dgx, &sty, &fy, &dgy, &ls->step, f, &dg));  in TaoLineSearchApply_MT()
363 static PetscErrorCode Tao_mcstep(TaoLineSearch ls, PetscReal *stx, PetscReal *fx, PetscReal *dx, Pe…  in Tao_mcstep()  argument
379   if (*fp > *fx) {  in Tao_mcstep()
387     theta      = 3 * (*fx - *fp) / (*stp - *stx) + *dx + *dp;  in Tao_mcstep()
397     stpq = *stx + ((*dx / ((*fx - *fp) / (*stp - *stx) + *dx)) * 0.5) * (*stp - *stx);  in Tao_mcstep()
410     theta      = 3 * (*fx - *fp) / (*stp - *stx) + *dx + *dp;  in Tao_mcstep()
436     theta      = 3 * (*fx - *fp) / (*stp - *stx) + *dx + *dp;  in Tao_mcstep()
488   if (*fp > *fx) {  in Tao_mcstep()
495       *fy  = *fx;  in Tao_mcstep()
499     *fx  = *fp;  in Tao_mcstep()