Lines Matching defs:aadj
96 double aadj;
920 if ((aadj = ratio(delta, bs)) <= 2.) {
922 aadj = dval(&aadj1) = 1.;
928 aadj = 1.;
935 if (aadj < 2./FLT_RADIX)
936 aadj = 1./FLT_RADIX;
938 aadj *= 0.5;
939 dval(&aadj1) = -aadj;
943 aadj *= 0.5;
944 dval(&aadj1) = dsign ? aadj : -aadj;
982 if (aadj <= 0x7fffffff) {
983 if ((z = aadj) <= 0)
985 aadj = z;
986 dval(&aadj1) = dsign ? aadj : -aadj;
1023 * y <= (P-1)*Exp_msk1), we must adjust aadj to avoid
1027 if (y <= (P-1)*Exp_msk1 && aadj > 1.) {
1028 dval(&aadj1) = (double)(int)(aadj + 0.5);
1044 L = (Long)aadj;
1045 aadj -= L;
1048 if (aadj < .4999999 || aadj > .5000001)
1051 else if (aadj < .4999999/FLT_RADIX)
