m_apm_exponent
int m_apm_exponent;
extern int m_apm_exponent(M_APM);
{return m_apm_exponent(cval());}
if (x->m_apm_exponent > 0)
aexp = a->m_apm_exponent;
bexp = b->m_apm_exponent;
aexp = M_work1->m_apm_exponent;
bexp = M_work2->m_apm_exponent;
nn = -4 * c0->m_apm_exponent;
if (rr->m_apm_exponent <= 0) /* result is 0 */
if (rr->m_apm_datalength > rr->m_apm_exponent)
rr->m_apm_datalength = rr->m_apm_exponent;
nexp = M_div_worka->m_apm_exponent - M_div_workb->m_apm_exponent;
M_div_worka->m_apm_exponent = 0;
M_div_workb->m_apm_exponent = 0;
M_div_worka->m_apm_exponent += 1; /* multiply numerator by 10 */
M_div_worka->m_apm_exponent += 2; /* multiply numerator by 100 */
if ((k = 2 - M_div_worka->m_apm_exponent) > 0)
M_div_tmp9->m_apm_exponent += 2;
r->m_apm_exponent = nexp;
if (x->m_apm_exponent <= -3) /* already small enough so call _raw directly */
if (tmp7->m_apm_exponent == 0)
kk = tmp1->m_apm_exponent;
if ((term->m_apm_exponent < tolerance) || (term->m_apm_sign == 0))
local_precision = local_precision + term->m_apm_exponent - prev_exp;
prev_exp = term->m_apm_exponent;
if (bb->m_apm_exponent <= 0) /* if |bb| < 1, result is 0 or 1 */
bb->m_apm_datalength = bb->m_apm_exponent;
mtmp->m_apm_datalength = mtmp->m_apm_exponent;
if (bb->m_apm_exponent <= 0) /* if |bb| < 1, result is -1 or 0 */
mtmp->m_apm_datalength = mtmp->m_apm_exponent;
bb->m_apm_datalength = bb->m_apm_exponent;
xp = btmp->m_apm_exponent;
xp = ctmp->m_apm_exponent;
xp = atmp->m_apm_exponent;
btmp->m_apm_exponent += 1;
xp = atmp->m_apm_exponent;
if (((3 * tmp0->m_apm_exponent) < tolerance) || (tmp0->m_apm_sign == 0))
tmp7->m_apm_exponent = -places;
tmp7->m_apm_exponent -= 1; /* divide by 10 */
((-2 * tmp1->m_apm_exponent) > tolerance))
tolerance = xx->m_apm_exponent - (places + 6);
dplaces = (places + 12) - xx->m_apm_exponent;
if ((tmp0->m_apm_exponent < tolerance) || (tmp0->m_apm_sign == 0))
local_precision = dplaces + tmp0->m_apm_exponent;
mexp = a->m_apm_exponent;
if (tmp0->m_apm_exponent <= -4)
mexp = tmp2->m_apm_exponent - 2;
tmp2->m_apm_exponent = 2; /* force number between 10 & 100 */
r->m_apm_exponent = nexp;
nexp = a->m_apm_exponent + b->m_apm_exponent;
if (yy->m_apm_exponent <= 4)
if (yy->m_apm_exponent <= 7)
nexp = aa->m_apm_exponent;
tmpN->m_apm_exponent -= nexp;
if ((-4 * tmp2->m_apm_exponent) > tolerance)
rr->m_apm_exponent -= nexp;
nexp = aa->m_apm_exponent - bb->m_apm_exponent;
mrnd->m_apm_exponent -= 15;
atmp->m_apm_exponent = 15;
atmp->m_apm_exponent = 15;
atmp->m_apm_exponent = 15;
atmp->m_apm_exponent = len;
ctmp->m_apm_exponent = exponent;
ctmp->m_apm_exponent = 0;
i = ctmp->m_apm_exponent - 1;
if (xx->m_apm_exponent <= -4) /* input close to 0 ?? */
if (xx->m_apm_exponent >= 4) /* large input */
if (x->m_apm_exponent <= -4) /* input close to 0 ?? */
maxp = places + 8 - x->m_apm_exponent;
local_precision = 20 - x->m_apm_exponent;
if (((2 * tmp0->m_apm_exponent) < tolerance) || (tmp0->m_apm_sign == 0))
if (x->m_apm_exponent <= -4) /* input close to 0 ?? */
if (((2 * tmp0->m_apm_exponent) < tolerance) || (tmp0->m_apm_sign == 0))
tolerance = aa->m_apm_exponent - (places + 4);
dplaces = (places + 8) - aa->m_apm_exponent;
if ((tmp0->m_apm_exponent < tolerance) || (tmp0->m_apm_sign == 0))
local_precision = dplaces + tmp0->m_apm_exponent;
if ((tmp0->m_apm_exponent < tolerance) || (tmp0->m_apm_sign == 0))
local_precision = dplaces + tmp0->m_apm_exponent;
if ((-4 * tmp8->m_apm_exponent) > tolerance)
rr->m_apm_exponent += nexp;
nexp = aa->m_apm_exponent / 3;
tmpN->m_apm_exponent -= 3 * nexp;
nexp = M_ain->m_apm_exponent + M_bin->m_apm_exponent;
rr->m_apm_exponent = nexp;
ct = mtmp->m_apm_exponent;
if ((term->m_apm_exponent < tolerance) || (term->m_apm_sign == 0))
local_precision = local_precision + term->m_apm_exponent - prev_exp;
prev_exp = term->m_apm_exponent;
dplaces = (places + 8) - xx->m_apm_exponent;
tolerance = xx->m_apm_exponent - (places + 4);
if ((tmp8->m_apm_exponent < tolerance) || (tmp8->m_apm_sign == 0))
local_precision = dplaces + term->m_apm_exponent;
nexp = aa->m_apm_exponent / 2;
tmpN->m_apm_exponent -= 2 * nexp;
if ((-4 * tmp7->m_apm_exponent) > tolerance)
rr->m_apm_exponent += nexp;
atmp->m_apm_exponent = 0;
M_work_0_5->m_apm_exponent = atmp->m_apm_exponent - ii;
exponent = atmp->m_apm_exponent;
atmp->m_apm_exponent = exponent;
ctmp->m_apm_exponent++;
ctmp->m_apm_exponent += ct;
z->m_apm_exponent = 0;
dest->m_apm_exponent = src->m_apm_exponent;
lexp = ltmp->m_apm_exponent;
rexp = rtmp->m_apm_exponent;
return(atmp->m_apm_exponent - 1);
if (atmp->m_apm_exponent >= atmp->m_apm_datalength)
jj = aa->m_apm_exponent;