bridge/class-master/depend/pari/src/basemath/char.c
/*********************************************************************/
/**                                                                 **/
/**                  GENERIC ABELIAN CHARACTERS                     **/
/**                                                                 **/
/*********************************************************************/
/* check whether G is a znstar */
GENERIC ABELIAN CHARACTERS

check whether G is a znstar
GENERIC ABELIAN CHARACTERS check whether G is a znstar
int
checkznstar_i(GEN G)
{
  return (typ(G) == t_VEC && lg(G) == 6
      && typ(znstar_get_faN(G)) == t_VEC
      && typ(gel(G,1)) == t_VEC && lg(gel(G,1)) == 3);
}
int checkznstar_i ( GEN G ) { return ( typ ( G ) == t_VEC && lg ( G ) == 6 && typ ( znstar_get_faN ( G ) ) == t_VEC && typ ( gel ( G , 1 ) ) == t_VEC && lg ( gel ( G , 1 ) ) == 3 ) ; }
GENERIC ABELIAN CHARACTERS
GENERIC ABELIAN CHARACTERS