bridge/class-master/depend/pari/src/language/intnum.c
/* computes the necessary tabs, knowing a, b and m */
computes the necessary tabs, knowing a, b and m
computes the necessary tabs knowing a b and m
static GEN
homtab(GEN tab, GEN k)
{
  GEN z;
  if (gequal0(k) || gequal(k, gen_1)) return tab;
  if (gsigne(k) < 0) k = gneg(k);
  z = cgetg(LGTAB, t_VEC);
  TABx0(z) = gmul(TABx0(tab), k);
  TABw0(z) = gmul(TABw0(tab), k);
  TABxp(z) = gmul(TABxp(tab), k);
  TABwp(z) = gmul(TABwp(tab), k);
  TABxm(z) = gmul(TABxm(tab), k);
  TABwm(z) = gmul(TABwm(tab), k);
  TABh(z) = rcopy(TABh(tab)); return z;
}
static GEN homtab ( GEN tab , GEN k ) { GEN z ; if ( gequal0 ( k ) || gequal ( k , gen_1 ) ) return tab ; if ( gsigne ( k ) < 0 ) k = gneg ( k ) ; z = cgetg ( LGTAB , t_VEC ) ; TABx0 ( z ) = gmul ( TABx0 ( tab ) , k ) ; TABw0 ( z ) = gmul ( TABw0 ( tab ) , k ) ; TABxp ( z ) = gmul ( TABxp ( tab ) , k ) ; TABwp ( z ) = gmul ( TABwp ( tab ) , k ) ; TABxm ( z ) = gmul ( TABxm ( tab ) , k ) ; TABwm ( z ) = gmul ( TABwm ( tab ) , k ) ; TABh ( z ) = rcopy ( TABh ( tab ) ) ; return z ; }
computes the necessary tabs, knowing a, b and m
computes the necessary tabs knowing a b and m