bridge/class-master/depend/pari/src/modules/krasner.c
/* Return only the polynomials if flag = 0 (default), also the ramification
   degree, the residual degree and the discriminant if flag = 1 and only the
   number of extensions if flag = 2 */
Return only the polynomials if flag = 0 (default), also the ramification
degree, the residual degree and the discriminant if flag = 1 and only the
number of extensions if flag = 2
Return only the polynomials if flag = 0 ( default ) also the ramification degree the residual degree and the discriminant if flag = 1 and only the number of extensions if flag = 2
GEN
padicfields0(GEN p, GEN N, long flag)
{
  pari_sp av = avma;
  long m = 0, d = -1;
  GEN L;
  if (typ(p) != t_INT) pari_err_TYPE("padicfields",p);
  if (!BPSW_psp(p)) pari_err_PRIME("padicfields",p);
  switch(typ(N))
  {
    case t_VEC:
      if (lg(N) != 3) pari_err_TYPE("padicfields",N);
      d = gtos(gel(N,2));
      N = gel(N,1); 
    case t_INT:
      m = itos(N);
      if (m <= 0) pari_err_DOMAIN("padicfields", "degree", "<=", gen_0,N);
      break;
    default:
      pari_err_TYPE("padicfields",N);
  }
  if (d >= 0) return padicfields(p, m, d, flag);
  L = possible_efj(p, m);
  return pols_from_efj(av, L, p, flag);
}
GEN padicfields0 ( GEN p , GEN N , long flag ) { pari_sp av = avma ; long m = 0 , d = -1 ; GEN L ; if ( typ ( p ) != t_INT ) pari_err_TYPE ( " " , p ) ; if ( ! BPSW_psp ( p ) ) pari_err_PRIME ( " " , p ) ; switch ( typ ( N ) ) { case t_VEC : if ( lg ( N ) != 3 ) pari_err_TYPE ( " " , N ) ; d = gtos ( gel ( N , 2 ) ) ; N = gel ( N , 1 ) ; case t_INT : m = itos ( N ) ; if ( m <= 0 ) pari_err_DOMAIN ( " " , " " , " " , gen_0 , N ) ; break ; default : pari_err_TYPE ( " " , N ) ; } if ( d >= 0 ) return padicfields ( p , m , d , flag ) ; L = possible_efj ( p , m ) ; return pols_from_efj ( av , L , p , flag ) ; }
Return only the polynomials if flag = 0 (default), also the ramification
degree, the residual degree and the discriminant if flag = 1 and only the
number of extensions if flag = 2
Return only the polynomials if flag = 0 ( default ) also the ramification degree the residual degree and the discriminant if flag = 1 and only the number of extensions if flag = 2
/* be nice to silly users */ /* fall through */