bridge/class-master/depend/pari/src/basemath/mftrace.c
/* PSI not necessarily primitive, of conductor F */
PSI not necessarily primitive, of conductor F
PSI not necessarily primitive of conductor F
static int
charistotallyeven(GEN PSI, long F)
{
  pari_sp av = avma;
  GEN P = gel(myfactoru(F), 1);
  GEN G = gel(PSI,1), psi = gel(PSI,2);
  long i;
  for (i = 1; i < lg(P); i++)
  {
    GEN psip = znchardecompose(G, psi, utoipos(P[i]));
    if (zncharisodd(G, psip)) { avma = av; return 0; }
  }
  avma = av; return 1;
}
static int charistotallyeven ( GEN PSI , long F ) { pari_sp av = avma ; GEN P = gel ( myfactoru ( F ) , 1 ) ; GEN G = gel ( PSI , 1 ) , psi = gel ( PSI , 2 ) ; long i ; for ( i = 1 ; i < lg ( P ) ; i ++ ) { GEN psip = znchardecompose ( G , psi , utoipos ( P [ i ] ) ) ; if ( zncharisodd ( G , psip ) ) { avma = av ; return 0 ; } } avma = av ; return 1 ; }
PSI not necessarily primitive, of conductor F
PSI not necessarily primitive of conductor F