Lines Matching refs:e1
96 e, e1, esign, i, j, k, nd, nd0, nf, nz, nz0, sign;
340 e1 = e -= nf;
431 e1 += nd - k;
453 /* Get starting approximation = rv * 10**e1 */
455 if (e1 > 0) {
456 if ( (i = e1 & 15) !=0)
458 if (e1 &= ~15) {
459 if (e1 > DBL_MAX_10_EXP) {
500 e1 >>= 4;
501 for(j = 0; e1 > 1; j++, e1 >>= 1)
502 if (e1 & 1)
520 else if (e1 < 0) {
521 e1 = -e1;
522 if ( (i = e1 & 15) !=0)
524 if (e1 >>= 4) {
525 if (e1 >= 1 << n_bigtens)
528 if (e1 & Scale_Bit)
530 for(j = 0; e1 > 0; j++, e1 >>= 1)
531 if (e1 & 1)
547 for(j = 0; e1 > 1; j++, e1 >>= 1)
548 if (e1 & 1)