Lines Matching defs:aadj
98 double aadj;
891 if ((aadj = ratio(delta, bs)) <= 2.) {
893 aadj = dval(&aadj1) = 1.;
899 aadj = 1.;
906 if (aadj < 2./FLT_RADIX)
907 aadj = 1./FLT_RADIX;
909 aadj *= 0.5;
910 dval(&aadj1) = -aadj;
914 aadj *= 0.5;
915 dval(&aadj1) = dsign ? aadj : -aadj;
953 if (aadj <= 0x7fffffff) {
954 if ((z = aadj) <= 0)
956 aadj = z;
957 dval(&aadj1) = dsign ? aadj : -aadj;
994 * y <= (P-1)*Exp_msk1), we must adjust aadj to avoid
998 if (y <= (P-1)*Exp_msk1 && aadj > 1.) {
999 dval(&aadj1) = (double)(int)(aadj + 0.5);
1015 L = (Long)aadj;
1016 aadj -= L;
1019 if (aadj < .4999999 || aadj > .5000001)
1022 else if (aadj < .4999999/FLT_RADIX)