Searched refs:stpq (Results 1 – 1 of 1) sorted by relevance
366 PetscReal gamma1, p, q, r, s, sgnd, stpc, stpf, stpq, theta; in Tao_mcstep() local397 stpq = *stx + ((*dx / ((*fx - *fp) / (*stp - *stx) + *dx)) * 0.5) * (*stp - *stx); in Tao_mcstep()399 if (PetscAbsReal(stpc - *stx) < PetscAbsReal(stpq - *stx)) stpf = stpc; in Tao_mcstep()400 else stpf = stpc + 0.5 * (stpq - stpc); in Tao_mcstep()419 stpq = *stp + (*dp / (*dp - *dx)) * (*stx - *stp); in Tao_mcstep()421 if (PetscAbsReal(stpc - *stp) > PetscAbsReal(stpq - *stp)) stpf = stpc; in Tao_mcstep()422 else stpf = stpq; in Tao_mcstep()450 stpq = *stp + (*dp / (*dp - *dx)) * (*stx - *stp); in Tao_mcstep()453 if (PetscAbsReal(*stp - stpc) < PetscAbsReal(*stp - stpq)) stpf = stpc; in Tao_mcstep()454 else stpf = stpq; in Tao_mcstep()[all …]