bridge/class-master/depend/pari/src/basemath/mftrace.c
/* expand B_d V, increasing length up to lim */
expand B_d V, increasing length up to lim
expand B_d V increasing length up to lim
static GEN
bdexpandall(GEN V, long d, long lim)
{
  GEN W;
  long N, n;
  if (d == 1) return V;
  N = lg(V)-1; W = zerovec(lim);
  for (n = 0; n <= N-1 && n*d <= lim; n++) gel(W, n*d+1) = gel(V, n+1);
  return W;
}
static GEN bdexpandall ( GEN V , long d , long lim ) { GEN W ; long N , n ; if ( d == 1 ) return V ; N = lg ( V ) - 1 ; W = zerovec ( lim ) ; for ( n = 0 ; n <= N - 1 && n * d <= lim ; n ++ ) gel ( W , n * d + 1 ) = gel ( V , n + 1 ) ; return W ; }
expand B_d V, increasing length up to lim
expand B_d V increasing length up to lim