Lines Matching refs:adj
100 U adj, aadj1, rv, rv0;
676 dval(&adj) = 1.;
681 dval(&adj) = -1.;
693 dval(&adj) = -0.5;
700 word0(&adj) += (2*P+1)*Exp_msk1 - y;
706 dval(&rv) += adj*ulp(&rv);
712 dval(&rv) += adj.d*ulp(&rv);
716 dval(&adj) = ratio(delta, bs);
717 if (adj.d < 1.)
718 dval(&adj) = 1.;
719 if (adj.d <= 0x7ffffffe) {
720 /* dval(&adj) = Rounding ? ceil(&adj) : floor(&adj); */
721 y = adj.d;
722 if (y != adj.d) {
725 dval(&adj) = y;
730 word0(&adj) += (2*P+1)*Exp_msk1 - y;
735 dval(&adj) *= ulp(&rv);
737 dval(&rv) += adj;
739 dval(&rv) -= adj;
745 dval(&adj) *= ulp(&rv);
749 dval(&rv) += adj.d;
752 dval(&rv) -= adj.d;
937 dval(&adj) = dval(&aadj1) * ulp(&rv);
938 dval(&rv) += dval(&adj);
961 dval(&adj) = dval(&aadj1) * ulp(&rv);
962 dval(&rv) += dval(&adj);
968 dval(&adj) = dval(&aadj1) * ulp(&rv);
969 dval(&rv) += adj;
987 dval(&adj) = dval(&aadj1) * ulp(&rv);
988 dval(&rv) += adj;
991 /* Compute dval(&adj) so that the IEEE rounding rules will
992 * correctly round rv + dval(&adj) in some half-way cases.
1003 dval(&adj) = dval(&aadj1) * ulp(&rv);
1004 dval(&rv) += adj;