bridge/class-master/depend/pari/src/basemath/base3.c
/* pl : requested signs for real embeddings, 0 = no sign constraint */
pl : requested signs for real embeddings, 0 = no sign constraint
pl : requested signs for real embeddings 0 = no sign constraint
int
nfchecksigns(GEN nf, GEN x, GEN pl)
{
  pari_sp av = avma;
  GEN signs, archp;
  int res;
  nf = checknf(nf);
  x = nf_to_scalar_or_basis(nf,x);
  if (typ(x) != t_COL)
  {
    long i, l = lg(pl), s = gsigne(x);
    for (i = 1; i < l; i++)
      if (pl[i] && pl[i] != s) { avma = av; return 0; }
    avma = av; return 1;
  }
  pl_convert(pl, &signs, &archp);
  res = nfchecksigns_i(nf, x, NULL, signs, archp);
  avma = av; return res;
}
int nfchecksigns ( GEN nf , GEN x , GEN pl ) { pari_sp av = avma ; GEN signs , archp ; int res ; nf = checknf ( nf ) ; x = nf_to_scalar_or_basis ( nf , x ) ; if ( typ ( x ) != t_COL ) { long i , l = lg ( pl ) , s = gsigne ( x ) ; for ( i = 1 ; i < l ; i ++ ) if ( pl [ i ] && pl [ i ] != s ) { avma = av ; return 0 ; } avma = av ; return 1 ; } pl_convert ( pl , & signs , & archp ) ; res = nfchecksigns_i ( nf , x , NULL , signs , archp ) ; avma = av ; return res ; }
pl : requested signs for real embeddings, 0 = no sign constraint
pl : requested signs for real embeddings 0 = no sign constraint