bridge/class-master/depend/pari/src/basemath/arith1.c
/* chinese1 for coprime moduli in Z */
chinese1 for coprime moduli in Z
chinese1 for coprime moduli in Z
static GEN
chinese1_coprime_Z_aux(GEN x, GEN y)
{
  GEN z = cgetg(3, t_INTMOD);
  GEN A = gel(x,1), a = gel(x, 2);
  GEN B = gel(y,1), b = gel(y, 2), C = mulii(A,B);
  pari_sp av = avma;
  GEN U = mulii(Fp_inv(A,B), A);
  gel(z,2) = gerepileuptoint(av, Z_chinese_post(a,b,C,U, NULL));
  gel(z,1) = C; return z;
}
static GEN chinese1_coprime_Z_aux ( GEN x , GEN y ) { GEN z = cgetg ( 3 , t_INTMOD ) ; GEN A = gel ( x , 1 ) , a = gel ( x , 2 ) ; GEN B = gel ( y , 1 ) , b = gel ( y , 2 ) , C = mulii ( A , B ) ; pari_sp av = avma ; GEN U = mulii ( Fp_inv ( A , B ) , A ) ; gel ( z , 2 ) = gerepileuptoint ( av , Z_chinese_post ( a , b , C , U , NULL ) ) ; gel ( z , 1 ) = C ; return z ; }
chinese1 for coprime moduli in Z
chinese1 for coprime moduli in Z