bridge/class-master/depend/pari/src/basemath/elltors.c
/* either return one prime of degree 1 above p or NULL (none or expensive) */
either return one prime of degree 1 above p or NULL (none or expensive)
either return one prime of degree 1 above p or NULL ( none or expensive )
static GEN
primedec_deg1(GEN K, GEN p)
{
  GEN r, T, f = nf_get_index(K);
  if (dvdii(f,p)) return NULL;
  T = nf_get_pol(K);
  r = FpX_oneroot(T, p); if (!r) return NULL;
  r = deg1pol_shallow(gen_1, Fp_neg(r,p), varn(T));
  return idealprimedec_kummer(K, r, 1, p);
}
static GEN primedec_deg1 ( GEN K , GEN p ) { GEN r , T , f = nf_get_index ( K ) ; if ( dvdii ( f , p ) ) return NULL ; T = nf_get_pol ( K ) ; r = FpX_oneroot ( T , p ) ; if ( ! r ) return NULL ; r = deg1pol_shallow ( gen_1 , Fp_neg ( r , p ) , varn ( T ) ) ; return idealprimedec_kummer ( K , r , 1 , p ) ; }
either return one prime of degree 1 above p or NULL (none or expensive)
either return one prime of degree 1 above p or NULL ( none or expensive )