bridge/class-master/depend/pari/src/basemath/arith1.c
/* g1 has order d1, f has order o, replace g1 by an element of order lcm(d1,o)*/
g1 has order d1, f has order o, replace g1 by an element of order lcm(d1,o)
g1 has order d1 f has order o replace g1 by an element of order lcm ( d1 o )
static void
update_g1(GEN *pg1, GEN *pd1, GEN *pfad1, GEN f, GEN o, GEN fao)
{
  GEN A,B, g1 = *pg1, d1 = *pd1;
  *pfad1 = split_lcm(d1,*pfad1, o,fao, &A,&B);
  *pg1 = gmul(powgi(g1, diviiexact(d1,A)),  powgi(f, diviiexact(o,B)));
  *pd1 = mulii(A,B); 
}
static void update_g1 ( GEN * pg1 , GEN * pd1 , GEN * pfad1 , GEN f , GEN o , GEN fao ) { GEN A , B , g1 = * pg1 , d1 = * pd1 ; * pfad1 = split_lcm ( d1 , * pfad1 , o , fao , & A , & B ) ; * pg1 = gmul ( powgi ( g1 , diviiexact ( d1 , A ) ) , powgi ( f , diviiexact ( o , B ) ) ) ; * pd1 = mulii ( A , B ) ; }
g1 has order d1, f has order o, replace g1 by an element of order lcm(d1,o)
g1 has order d1 f has order o replace g1 by an element of order lcm ( d1 o )
/* g1 has order d1 <- lcm(d1,o) */