bridge/class-master/depend/pari/src/basemath/bnflog.c
/* Return 1 if L/Q is locally cyclotomic at ell */
Return 1 if L/Q is locally cyclotomic at ell
Return 1 if L / Q is locally cyclotomic at ell
static int
islocalcycloQ(GEN L, GEN ell)
{
  GEN SL = idealprimedec(L,ell), TL;
  long i, lSL = lg(SL);
  TL = padicfact(L,  SL, 100);
  for (i = 1; i < lSL; i++)
  {
    long eL = etilde(L, gel(SL,i), gel(TL,i));
    if (dvdui(eL,ell)) return 0;
  }
  return 1;
}
static int islocalcycloQ ( GEN L , GEN ell ) { GEN SL = idealprimedec ( L , ell ) , TL ; long i , lSL = lg ( SL ) ; TL = padicfact ( L , SL , 100 ) ; for ( i = 1 ; i < lSL ; i ++ ) { long eL = etilde ( L , gel ( SL , i ) , gel ( TL , i ) ) ; if ( dvdui ( eL , ell ) ) return 0 ; } return 1 ; }
Return 1 if L/Q is locally cyclotomic at ell
Return 1 if L / Q is locally cyclotomic at ell