bridge/class-master/depend/pari/src/basemath/arith2.c
/* check whether v is a ZV with non-0 entries */
check whether v is a ZV with non-0 entries
check whether v is a ZV with non - 0 entries
int
RgV_is_ZVnon0(GEN v)
{
  long i, l = lg(v);
  for (i = 1; i < l; i++)
  {
    GEN c = gel(v,i);
    if (typ(c) != t_INT || !signe(c)) return 0;
  }
  return 1;
}
int RgV_is_ZVnon0 ( GEN v ) { long i , l = lg ( v ) ; for ( i = 1 ; i < l ; i ++ ) { GEN c = gel ( v , i ) ; if ( typ ( c ) != t_INT || ! signe ( c ) ) return 0 ; } return 1 ; }
check whether v is a ZV with non-0 entries
check whether v is a ZV with non - 0 entries