Lines Matching defs:dval
72 #define dval(x) (x)->d
767 if (!dval(&u)) {
784 dval(&d2) = dval(&u);
818 dval(&d2) = x;
823 ds = (dval(&d2) - 1.5) * 0.289529654602168 + 0.1760912590558 + (i * 0.301029995663981);
829 if (dval(&u) < tens[k])
875 dval(&d2) = dval(&u);
885 dval(&u) /= bigtens[n_bigtens - 1];
894 dval(&u) /= ds;
896 dval(&u) *= tens[j1 & 0xf];
900 dval(&u) *= bigtens[i];
904 if (k_check && dval(&u) < 1. && ilim > 0) {
909 dval(&u) *= 10.;
912 dval(&eps) = (ieps * dval(&u)) + 7.;
917 dval(&u) -= 5.;
918 if (dval(&u) > dval(&eps))
920 if (dval(&u) < -dval(&eps))
928 dval(&eps) = (0.5 / tens[ilim - 1]) - dval(&eps);
930 L = (long int)dval(&u);
931 dval(&u) -= L;
933 if (dval(&u) < dval(&eps))
935 if (1. - dval(&u) < dval(&eps))
939 dval(&eps) *= 10.;
940 dval(&u) *= 10.;
944 dval(&eps) *= tens[ilim - 1];
945 for (i = 1;; i++, dval(&u) *= 10.) {
946 L = (int32_t)(dval(&u));
947 if (!(dval(&u) -= L))
951 if (dval(&u) > 0.5 + dval(&eps))
953 if (dval(&u) < 0.5 - dval(&eps)) {
964 dval(&u) = dval(&d2);
977 if (ilim < 0 || dval(&u) <= 5 * ds)
981 for (i = 1;; i++, dval(&u) *= 10.) {
982 L = (int32_t)(dval(&u) / ds);
983 dval(&u) -= L * ds;
985 if (!dval(&u)) {
989 dval(&u) += dval(&u);
990 if (dval(&u) > ds || (dval(&u) == ds && (L & 1))) {
