bridge/class-master/depend/pari/src/basemath/base3.c
/* return the vector of signs of x; the matrix of such if x is a vector
 * of nf elements */
return the vector of signs of x; the matrix of such if x is a vector
of nf elements
return the vector of signs of x ; the matrix of such if x is a vector of nf elements
GEN
nfsign(GEN nf, GEN x)
{
  long i, l;
  GEN archp, S;
  nf = checknf(nf);
  archp = identity_perm( nf_get_r1(nf) );
  if (typ(x) != t_VEC) return nfsign_arch(nf, x, archp);
  l = lg(x); S = cgetg(l, t_MAT);
  for (i=1; i<l; i++) gel(S,i) = nfsign_arch(nf, gel(x,i), archp);
  return S;
}
GEN nfsign ( GEN nf , GEN x ) { long i , l ; GEN archp , S ; nf = checknf ( nf ) ; archp = identity_perm ( nf_get_r1 ( nf ) ) ; if ( typ ( x ) != t_VEC ) return nfsign_arch ( nf , x , archp ) ; l = lg ( x ) ; S = cgetg ( l , t_MAT ) ; for ( i = 1 ; i < l ; i ++ ) gel ( S , i ) = nfsign_arch ( nf , gel ( x , i ) , archp ) ; return S ; }
return the vector of signs of x; the matrix of such if x is a vector
 of nf elements
return the vector of signs of x ; the matrix of such if x is a vector of nf elements