Lines Matching refs:dval
134 dval(&rv) = 0.;
342 dval(&rv) = y;
348 dval(&rv) = tens[k - 9] * dval(&rv) + z;
374 /* rv = */ rounded_product(dval(&rv), tens[e]);
391 dval(&rv) *= tens[i];
398 /* rv = */ rounded_product(dval(&rv), tens[e]);
404 /* rv = */ rounded_product(dval(&rv), tens[e]);
418 /* rv = */ rounded_quotient(dval(&rv), tens[-e]);
450 dval(&rv) *= tens[i];
473 dval(&rv0) = 1e300;
474 dval(&rv0) *= dval(&rv0);
496 dval(&rv) *= bigtens[j];
499 dval(&rv) *= bigtens[j];
516 dval(&rv) /= tens[i];
525 dval(&rv) *= tinytens[j];
542 dval(&rv) *= tinytens[j];
544 dval(&rv0) = dval(&rv);
545 dval(&rv) *= tinytens[j];
546 if (!dval(&rv)) {
547 dval(&rv) = 2.*dval(&rv0);
548 dval(&rv) *= tinytens[j];
550 if (!dval(&rv)) {
552 dval(&rv) = 0.;
583 bb = d2b(dval(&rv), &bbe, &bbbits); /* rv = bb * 2^bbe */
699 dval(&adj) = 1.;
704 dval(&adj) = -1.;
718 dval(&adj) = -0.5;
731 dval(&rv) += adj*ulp(&rv);
737 dval(&rv) += adj.d*ulp(&rv);
741 dval(&adj) = ratio(delta, bs);
743 dval(&adj) = 1.;
745 /* dval(&adj) = Rounding ? ceil(&adj) : floor(&adj); */
750 dval(&adj) = y;
760 dval(&adj) *= ulp(&rv);
762 dval(&rv) += adj;
764 dval(&rv) -= adj;
770 dval(&adj) *= ulp(&rv);
774 dval(&rv) += adj.d;
777 dval(&rv) -= adj.d;
896 dval(&rv) += sulp(&rv, scale);
898 dval(&rv) += ulp(&rv);
903 dval(&rv) -= sulp(&rv, scale);
905 dval(&rv) -= ulp(&rv);
908 if (!dval(&rv))
920 aadj = dval(&aadj1) = 1.;
927 dval(&aadj1) = -1.;
937 dval(&aadj1) = -aadj;
942 dval(&aadj1) = dsign ? aadj : -aadj;
947 dval(&aadj1) -= 0.5;
951 dval(&aadj1) += 0.5;
956 dval(&aadj1) += 0.5;
964 dval(&rv0) = dval(&rv);
966 dval(&adj) = dval(&aadj1) * ulp(&rv);
967 dval(&rv) += dval(&adj);
986 dval(&aadj1) = dsign ? aadj : -aadj;
990 dval(&adj) = dval(&aadj1) * ulp(&rv);
991 dval(&rv) += dval(&adj);
995 dval(&rv0) = dval(&rv);
997 dval(&adj) = dval(&aadj1) * ulp(&rv);
998 dval(&rv) += dval(&adj);
1016 dval(&adj) = dval(&aadj1) * ulp(&rv);
1017 dval(&rv) += dval(&adj);
1020 /* Compute dval(&adj) so that the IEEE rounding rules will
1021 * correctly round rv + dval(&adj) in some half-way cases.
1028 dval(&aadj1) = (double)(int)(aadj + 0.5);
1030 dval(&aadj1) = -dval(&aadj1);
1032 dval(&adj) = dval(&aadj1) * ulp(&rv);
1033 dval(&rv) += adj;
1071 dval(&rv0) += 1.;
1081 dval(&rv) *= dval(&rv0);
1096 dval(&rv0) = 1e-300;
1097 dval(&rv0) *= dval(&rv0);
1103 return sign ? -dval(&rv) : dval(&rv);