Lines Matching refs:PetscAbsReal
182 …if ((*f - ftest1 <= PETSC_SMALL * PetscAbsReal(finit)) && (PetscAbsReal(dg) + ls->gtol * dginit <=… 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()
377 sgnd = *dp * (*dx / PetscAbsReal(*dx)); in Tao_mcstep()
388 s = PetscMax(PetscAbsReal(theta), PetscAbsReal(*dx)); in Tao_mcstep()
389 s = PetscMax(s, PetscAbsReal(*dp)); in Tao_mcstep()
399 if (PetscAbsReal(stpc - *stx) < PetscAbsReal(stpq - *stx)) stpf = stpc; in Tao_mcstep()
411 s = PetscMax(PetscAbsReal(theta), PetscAbsReal(*dx)); in Tao_mcstep()
412 s = PetscMax(s, PetscAbsReal(*dp)); in Tao_mcstep()
421 if (PetscAbsReal(stpc - *stp) > PetscAbsReal(stpq - *stp)) stpf = stpc; in Tao_mcstep()
424 } else if (PetscAbsReal(*dp) < PetscAbsReal(*dx)) { in Tao_mcstep()
437 s = PetscMax(PetscAbsReal(theta), PetscAbsReal(*dx)); in Tao_mcstep()
438 s = PetscMax(s, PetscAbsReal(*dp)); in Tao_mcstep()
453 if (PetscAbsReal(*stp - stpc) < PetscAbsReal(*stp - stpq)) stpf = stpc; in Tao_mcstep()
456 if (PetscAbsReal(*stp - stpc) > PetscAbsReal(*stp - stpq)) stpf = stpc; in Tao_mcstep()
469 s = PetscMax(PetscAbsReal(theta), PetscAbsReal(*dy)); in Tao_mcstep()
470 s = PetscMax(s, PetscAbsReal(*dp)); in Tao_mcstep()