bridge/class-master/depend/pari/src/basemath/base3.c
/* F non-0 integral ideal in HNF (or NULL: Z_K), compute elements in 1+F
 * whose sign matrix at archp is identity; archp in 'indices' format */
F non-0 integral ideal in HNF (or NULL: Z_K), compute elements in 1+F
whose sign matrix at archp is identity; archp in 'indices' format
F non - 0 integral ideal in HNF ( or NULL : Z_K ) compute elements in 1 + F whose sign matrix at archp is identity ; archp in ' indices ' format
GEN
nfarchstar(GEN nf, GEN F, GEN archp)
{
  long nba = lg(archp) - 1;
  if (!nba) return mkvec2(cgetg(1,t_VEC), archp);
  if (F && equali1(gcoeff(F,1,1))) F = NULL;
  if (F) F = idealpseudored(F, nf_get_roundG(nf));
  return setsigns_init(nf, archp, F, const_vec(nba, gen_2));
}
GEN nfarchstar ( GEN nf , GEN F , GEN archp ) { long nba = lg ( archp ) - 1 ; if ( ! nba ) return mkvec2 ( cgetg ( 1 , t_VEC ) , archp ) ; if ( F && equali1 ( gcoeff ( F , 1 , 1 ) ) ) F = NULL ; if ( F ) F = idealpseudored ( F , nf_get_roundG ( nf ) ) ; return setsigns_init ( nf , archp , F , const_vec ( nba , gen_2 ) ) ; }
F non-0 integral ideal in HNF (or NULL: Z_K), compute elements in 1+F
 whose sign matrix at archp is identity; archp in 'indices' format
F non - 0 integral ideal in HNF ( or NULL : Z_K ) compute elements in 1 + F whose sign matrix at archp is identity ; archp in ' indices ' format