bridge/class-master/depend/pari/src/basemath/polarit3.c
/* check if polsubcyclo(n,l,0) is irreducible modulo p */
check if polsubcyclo(n,l,0) is irreducible modulo p
check if polsubcyclo ( n l 0 ) is irreducible modulo p
static long
fpinit_check(GEN p, long n, long l)
{
  ulong q;
  if (!uisprime(n)) return 0;
  q = umodiu(p,n); if (!q) return 0;
  return ugcd((n-1)/Fl_order(q, n-1, n), l) == 1;
}
static long fpinit_check ( GEN p , long n , long l ) { ulong q ; if ( ! uisprime ( n ) ) return 0 ; q = umodiu ( p , n ) ; if ( ! q ) return 0 ; return ugcd ( ( n - 1 ) / Fl_order ( q , n - 1 , n ) , l ) == 1 ; }
check if polsubcyclo(n,l,0) is irreducible modulo p
check if polsubcyclo ( n l 0 ) is irreducible modulo p