Lines Matching refs:stpq
366 PetscReal gamma1, p, q, r, s, sgnd, stpc, stpf, stpq, theta;
397 stpq = *stx + ((*dx / ((*fx - *fp) / (*stp - *stx) + *dx)) * 0.5) * (*stp - *stx);
399 if (PetscAbsReal(stpc - *stx) < PetscAbsReal(stpq - *stx)) stpf = stpc;
400 else stpf = stpc + 0.5 * (stpq - stpc);
419 stpq = *stp + (*dp / (*dp - *dx)) * (*stx - *stp);
421 if (PetscAbsReal(stpc - *stp) > PetscAbsReal(stpq - *stp)) stpf = stpc;
422 else stpf = stpq;
450 stpq = *stp + (*dp / (*dp - *dx)) * (*stx - *stp);
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;