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