bridge/class-master/depend/pari/src/basemath/char.c
/* G is a znstar, chi a Dirichlet character */
G is a znstar, chi a Dirichlet character
G is a znstar chi a Dirichlet character
GEN
zncharorder(GEN G,  GEN chi)
{
  switch(typ(chi))
  {
    case t_INT: chi = znconreylog(G, chi); 
    case t_COL: return charorder(znstar_get_conreycyc(G), chi);
    case t_VEC: return charorder(znstar_get_cyc(G), chi);
    default: pari_err_TYPE("zncharorder",chi);
             return NULL; 
  }
}
GEN zncharorder ( GEN G , GEN chi ) { switch ( typ ( chi ) ) { case t_INT : chi = znconreylog ( G , chi ) ; case t_COL : return charorder ( znstar_get_conreycyc ( G ) , chi ) ; case t_VEC : return charorder ( znstar_get_cyc ( G ) , chi ) ; default : pari_err_TYPE ( " " , chi ) ; return NULL ; } }
G is a znstar, chi a Dirichlet character
G is a znstar chi a Dirichlet character
/*fall through*/ /* LCOV_EXCL_LINE */