bridge/class-master/depend/pari/src/basemath/mftrace.c
/* Trace of T(n) on space of cuspforms; only depends on CHIP the primitive char
 * attached to CHI */
Trace of T(n) on space of cuspforms; only depends on CHIP the primitive char
attached to CHI
Trace of T ( n ) on space of cuspforms ; only depends on CHIP the primitive char attached to CHI
static GEN
mfcusptrace_i(long N, long k, long n, GEN Dn, GEN S)
{
  pari_sp av = avma;
  GEN a, b, VCHIP, GCD;
  long t;
  if (!n) return gen_0;
  VCHIP = gel(S,_VCHIP);
  GCD = gel(S,_GCD);
  t = TA4(k, VCHIP, Dn, GCD);
  a = TA1(N, k, VCHIP, GCD, n); if (t) a = gaddgs(a,t);
  b = TA2(N, k, VCHIP, n, gel(S,_SQRTS), gel(S,_MUP), GCD);
  b = gadd(b, TA3(N, k, VCHIP, GCD, Dn, gel(S,_BEZ)));
  b = gsub(a,b);
  if (typ(b) != t_POL) return gerepileupto(av, b);
  return gerepilecopy(av, vchip_polmod(VCHIP, b));
}
static GEN mfcusptrace_i ( long N , long k , long n , GEN Dn , GEN S ) { pari_sp av = avma ; GEN a , b , VCHIP , GCD ; long t ; if ( ! n ) return gen_0 ; VCHIP = gel ( S , _VCHIP ) ; GCD = gel ( S , _GCD ) ; t = TA4 ( k , VCHIP , Dn , GCD ) ; a = TA1 ( N , k , VCHIP , GCD , n ) ; if ( t ) a = gaddgs ( a , t ) ; b = TA2 ( N , k , VCHIP , n , gel ( S , _SQRTS ) , gel ( S , _MUP ) , GCD ) ; b = gadd ( b , TA3 ( N , k , VCHIP , GCD , Dn , gel ( S , _BEZ ) ) ) ; b = gsub ( a , b ) ; if ( typ ( b ) != t_POL ) return gerepileupto ( av , b ) ; return gerepilecopy ( av , vchip_polmod ( VCHIP , b ) ) ; }
Trace of T(n) on space of cuspforms; only depends on CHIP the primitive char
 attached to CHI
Trace of T ( n ) on space of cuspforms ; only depends on CHIP the primitive char attached to CHI