Lines Matching refs:adj
96 double aadj, aadj1, adj, rv, rv0;
660 adj = 1.;
665 adj = -1.;
677 adj = -0.5;
684 word0(adj) += (2*P+1)*Exp_msk1 - y;
690 dval(rv) += adj*ulp(dval(rv));
696 dval(rv) += adj*ulp(dval(rv));
700 adj = ratio(delta, bs);
701 if (adj < 1.)
702 adj = 1.;
703 if (adj <= 0x7ffffffe) {
704 /* adj = rounding ? ceil(adj) : floor(adj); */
705 y = adj;
706 if (y != adj) {
709 adj = y;
714 word0(adj) += (2*P+1)*Exp_msk1 - y;
719 adj *= ulp(dval(rv));
721 dval(rv) += adj;
723 dval(rv) -= adj;
729 adj *= ulp(dval(rv));
731 dval(rv) += adj;
733 dval(rv) -= adj;
899 adj = aadj1 * ulp(dval(rv));
900 dval(rv) += adj;
923 adj = aadj1 * ulp(dval(rv));
924 dval(rv) += adj;
930 adj = aadj1 * ulp(dval(rv));
931 dval(rv) += adj;
949 adj = aadj1 * ulp(dval(rv));
950 dval(rv) += adj;
953 /* Compute adj so that the IEEE rounding rules will
954 * correctly round rv + adj in some half-way cases.
965 adj = aadj1 * ulp(dval(rv));
966 dval(rv) += adj;