bridge/class-master/depend/pari/src/basemath/mftrace.c
/* c_linear of "bhn" mf closures, same hypotheses as bhnmat_extend */
c_linear of "bhn" mf closures, same hypotheses as bhnmat_extend
c_linear of " bhn " mf closures same hypotheses as bhnmat_extend
static GEN
c_linear_bhn(long n, long d, GEN F)
{
  pari_sp av;
  GEN M, v, vF = gel(F,2), L = gel(F,3), dL = gel(F,4);
  if (lg(L) == 1) return zerovec(n+1);
  av = avma;
  M = bhnmat_extend_nocache(NULL, mf_get_N(F), n, d, vF);
  v = RgM_RgC_mul(M,L); settyp(v, t_VEC);
  if (!is_pm1(dL)) v = gdiv(v, dL);
  return gerepileupto(av, v);
}
static GEN c_linear_bhn ( long n , long d , GEN F ) { pari_sp av ; GEN M , v , vF = gel ( F , 2 ) , L = gel ( F , 3 ) , dL = gel ( F , 4 ) ; if ( lg ( L ) == 1 ) return zerovec ( n + 1 ) ; av = avma ; M = bhnmat_extend_nocache ( NULL , mf_get_N ( F ) , n , d , vF ) ; v = RgM_RgC_mul ( M , L ) ; settyp ( v , t_VEC ) ; if ( ! is_pm1 ( dL ) ) v = gdiv ( v , dL ) ; return gerepileupto ( av , v ) ; }
c_linear of "bhn" mf closures, same hypotheses as bhnmat_extend
c_linear of " bhn " mf closures same hypotheses as bhnmat_extend