bridge/class-master/depend/pari/src/basemath/buch1.c
/* returns the n-th suitable ideal for the factorbase */
returns the n-th suitable ideal for the factorbase
returns the n - th suitable ideal for the factorbase
static long
nthidealquad(GEN D, long n)
{
  pari_sp av = avma;
  forprime_t S;
  ulong p;
  (void)u_forprime_init(&S, 2, ULONG_MAX);
  while ((p = u_forprime_next(&S)) && n > 0)
    if (!is_bad(D, p) && kroiu(D, p) >= 0) n--;
  avma = av; return p;
}
static long nthidealquad ( GEN D , long n ) { pari_sp av = avma ; forprime_t S ; ulong p ; ( void ) u_forprime_init ( & S , 2 , ULONG_MAX ) ; while ( ( p = u_forprime_next ( & S ) ) && n > 0 ) if ( ! is_bad ( D , p ) && kroiu ( D , p ) >= 0 ) n -- ; avma = av ; return p ; }
returns the n-th suitable ideal for the factorbase
returns the n - th suitable ideal for the factorbase