impls/morethuente/morethuente.c

366   PetscReal         gamma1, p, q, r, s, sgnd, stpc, stpf, stpq, theta;
399     if (PetscAbsReal(stpc - *stx) < PetscAbsReal(stpq - *stx)) stpf = stpc;
400     else stpf = stpc + 0.5 * (stpq - stpc);
421     if (PetscAbsReal(stpc - *stp) > PetscAbsReal(stpq - *stp)) stpf = stpc;
422     else stpf = stpq;
453       if (PetscAbsReal(*stp - stpc) < PetscAbsReal(*stp - stpq)) stpf = stpc;
454       else stpf = stpq;
456       if (PetscAbsReal(*stp - stpc) > PetscAbsReal(*stp - stpq)) stpf = stpc;
457       else stpf = stpq;
477       stpf = stpc;
479       stpf = ls->stepmax;
481       stpf = ls->stepmin;
504   stpf = PetscMin(ls->stepmax, stpf);
505   stpf = PetscMax(ls->stepmin, stpf);
506   *stp = stpf;