bridge/class-master/depend/pari/src/basemath/mftrace.c
/* returns 4 times last term in formula */
returns 4 times last term in formula
returns 4 times last term in formula
static long
dim22(long N, long F, long k)
{
  pari_sp av = avma;
  GEN vF, faN = myfactoru(N), P = gel(faN, 1), E = gel(faN, 2);
  long i, D, l = lg(P);
  vF = cgetg(l, t_VECSMALL);
  for (i = 1; i < l; i++) vF[i] = u_lval(F, P[i]);
  D = zeta2CO(faN, vF, E[1], vF[1], k);
  for (i = 2; i < l; i++) D *= lamCO(E[i], vF[i], P[i]);
  avma = av; return D;
}
static long dim22 ( long N , long F , long k ) { pari_sp av = avma ; GEN vF , faN = myfactoru ( N ) , P = gel ( faN , 1 ) , E = gel ( faN , 2 ) ; long i , D , l = lg ( P ) ; vF = cgetg ( l , t_VECSMALL ) ; for ( i = 1 ; i < l ; i ++ ) vF [ i ] = u_lval ( F , P [ i ] ) ; D = zeta2CO ( faN , vF , E [ 1 ] , vF [ 1 ] , k ) ; for ( i = 2 ; i < l ; i ++ ) D *= lamCO ( E [ i ] , vF [ i ] , P [ i ] ) ; avma = av ; return D ; }
returns 4 times last term in formula
returns 4 times last term in formula