m_apm_sign
int m_apm_sign;
extern int m_apm_sign(M_APM);
{return m_apm_sign(cval());}
r->m_apm_sign = sign;
if (b->m_apm_sign == 0)
if (a->m_apm_sign == 0)
r->m_apm_sign = -(r->m_apm_sign);
if (a->m_apm_sign == 1 && b->m_apm_sign == -1)
b->m_apm_sign = 1;
b->m_apm_sign = -1;
if (a->m_apm_sign == -1 && b->m_apm_sign == 1)
b->m_apm_sign = -1;
b->m_apm_sign = 1;
sign = a->m_apm_sign;
sign = -(a->m_apm_sign);
r->m_apm_sign = sign;
if (a->m_apm_sign == 0)
if (b->m_apm_sign == 0)
if (a->m_apm_sign == 1 && b->m_apm_sign == -1)
b->m_apm_sign = 1;
b->m_apm_sign = -1;
if (a->m_apm_sign == -1 && b->m_apm_sign == 1)
a->m_apm_sign = 1;
a->m_apm_sign = -1;
sign = a->m_apm_sign; /* signs are the same, result will be same */
sign = a->m_apm_sign * b->m_apm_sign;
if (b->m_apm_sign == 0)
M_div_worka->m_apm_sign = 1;
M_div_workb->m_apm_sign = 1;
if (M_div_tmp9->m_apm_sign == 0)
r->m_apm_sign = sign;
if (x->m_apm_sign == 0) /* if input == 0, return '1' */
if (tmp7->m_apm_sign != 0)
if (tmp7->m_apm_sign >= 0)
if (tmp1->m_apm_sign >= 0)
if ((term->m_apm_exponent < tolerance) || (term->m_apm_sign == 0))
if (bb->m_apm_sign < 0)
if (bb->m_apm_sign < 0)
if (bb->m_apm_sign < 0)
if (bb->m_apm_sign < 0)
bb->m_apm_sign = -1;
if (atmp->m_apm_sign == -1) /* if input number negative */
if (mtmp->m_apm_sign >= 0)
if (ctmp->m_apm_sign == 0) /* result is 0 */
if (ctmp->m_apm_sign == -1) /* negative number */
if (tmpT->m_apm_sign == 1)
if (tmpT->m_apm_sign != 0)
if (tmpV->m_apm_sign == 0)
if (u->m_apm_sign == 0)
if (v->m_apm_sign == 0)
if (((3 * tmp0->m_apm_exponent) < tolerance) || (tmp0->m_apm_sign == 0))
if ((tmp1->m_apm_sign == 0) ||
if ((tmp0->m_apm_exponent < tolerance) || (tmp0->m_apm_sign == 0))
if (a->m_apm_sign <= 0)
if (tmp0->m_apm_sign == 0) /* is input exactly 1 ?? */
r->m_apm_sign = sign;
sign = a->m_apm_sign * b->m_apm_sign;
if (yy->m_apm_sign == 0)
if (xx->m_apm_sign == 0)
if (aa->m_apm_sign == 0)
if (tmp2->m_apm_sign == 0)
rr->m_apm_sign = aa->m_apm_sign;
sn = aa->m_apm_sign * bb->m_apm_sign;
if (bb->m_apm_sign == 0)
atmp->m_apm_sign = -1;
atmp->m_apm_sign = 1;
ctmp->m_apm_sign = sign;
ctmp->m_apm_sign = 0;
if (ctmp->m_apm_sign == 0)
if (ctmp->m_apm_sign == -1)
if (tmp6->m_apm_sign != 0)
tmp6->m_apm_sign = tmp5->m_apm_sign;
tmp9->m_apm_sign = -1;
iy = yy->m_apm_sign;
ix = xx->m_apm_sign;
rr->m_apm_sign = iy;
if (xx->m_apm_sign == 0) /* input == 0 ?? */
tmp1->m_apm_sign = 1; /* make positive */
rr->m_apm_sign = xx->m_apm_sign; /* fix final sign */
r->m_apm_sign = x->m_apm_sign;
r->m_apm_sign = x->m_apm_sign;
if (x->m_apm_sign == 0) /* input == 0 ?? */
if (tmp2->m_apm_sign != 0)
tmp2->m_apm_sign = current_x->m_apm_sign;
if (((2 * tmp0->m_apm_exponent) < tolerance) || (tmp0->m_apm_sign == 0))
if (x->m_apm_sign == 1)
if (x->m_apm_sign == 1)
if (x->m_apm_sign == 0) /* input == 0 ?? */
if (tmp2->m_apm_sign != 0)
tmp2->m_apm_sign = current_x->m_apm_sign;
if (((2 * tmp0->m_apm_exponent) < tolerance) || (tmp0->m_apm_sign == 0))
if ((tmp0->m_apm_exponent < tolerance) || (tmp0->m_apm_sign == 0))
if ((tmp0->m_apm_exponent < tolerance) || (tmp0->m_apm_sign == 0))
if (tmp8->m_apm_sign == 0)
rr->m_apm_sign = aa->m_apm_sign;
if (aa->m_apm_sign == 0)
sign = M_ain->m_apm_sign * M_bin->m_apm_sign;
rr->m_apm_sign = sign;
if (aa->m_apm_sign == 0)
rr->m_apm_sign = aa->m_apm_sign; /* fix final sign */
if (aa->m_apm_sign == 0)
if (mtmp->m_apm_sign == -1)
if (ct <= 0 || mtmp->m_apm_sign == 0)
if (aa->m_apm_sign == 0)
if ((term->m_apm_exponent < tolerance) || (term->m_apm_sign == 0))
if ((tmp8->m_apm_exponent < tolerance) || (tmp8->m_apm_sign == 0))
if (tmp7->m_apm_sign == 0)
if (aa->m_apm_sign <= 0)
if (aa->m_apm_sign == -1)
atmp->m_apm_sign = 0;
if (atmp->m_apm_sign > 0)
if (atmp->m_apm_sign == 0)
atmp->m_apm_sign = 0;
z->m_apm_sign = 0;
if (d->m_apm_sign != 0)
d->m_apm_sign = -(d->m_apm_sign);
if (d->m_apm_sign != 0)
d->m_apm_sign = 1;
dest->m_apm_sign = src->m_apm_sign;
lsign = ltmp->m_apm_sign;
rsign = rtmp->m_apm_sign;
return(atmp->m_apm_sign);
if (atmp->m_apm_sign == 0)
if (atmp->m_apm_sign == 0)
if (aa->m_apm_sign == 0)