bridge/class-master/depend/pari/src/basemath/alglin1.c
/* count non-zero entries in col j, at most 'max' of them.
 * Return their indices */
count non-zero entries in col j, at most 'max' of them.
Return their indices
count non - zero entries in col j at most ' max ' of them . Return their indices
static GEN
col_count_non_zero(GEN a, long j, long max)
{
  GEN v = cgetg(max+1, t_VECSMALL);
  GEN c = gel(a,j);
  long i, l = lg(a), k = 1;
  for (i = 1; i < l; i++)
    if (!gequal0(gel(c,i)))
    {
      if (k > max) return NULL; 
      v[k++] = i;
    }
  setlg(v, k); return v;
}
static GEN col_count_non_zero ( GEN a , long j , long max ) { GEN v = cgetg ( max + 1 , t_VECSMALL ) ; GEN c = gel ( a , j ) ; long i , l = lg ( a ) , k = 1 ; for ( i = 1 ; i < l ; i ++ ) if ( ! gequal0 ( gel ( c , i ) ) ) { if ( k > max ) return NULL ; v [ k ++ ] = i ; } setlg ( v , k ) ; return v ; }
count non-zero entries in col j, at most 'max' of them.
count non - zero entries in col j at most ' max ' of them .
/* fail */