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