bridge/class-master/depend/pari/src/basemath/mftrace.c
/* special contribution in weight 2 in trace formula */
special contribution in weight 2 in trace formula
special contribution in weight 2 in trace formula
static long
TA4(long k, GEN VCHIP, GEN Dn, GEN GCD)
{
  long i, l, S;
  if (k != 2 || vchip_FC(VCHIP) != 1) return 0;
  l = lg(Dn); S = 0;
  for (i = 1; i < l; i++)
  {
    long d = Dn[i]; 
    if (myugcd(GCD, Dn[l-i]) == 1) S += d;
  }
  return S;
}
static long TA4 ( long k , GEN VCHIP , GEN Dn , GEN GCD ) { long i , l , S ; if ( k != 2 || vchip_FC ( VCHIP ) != 1 ) return 0 ; l = lg ( Dn ) ; S = 0 ; for ( i = 1 ; i < l ; i ++ ) { long d = Dn [ i ] ; if ( myugcd ( GCD , Dn [ l - i ] ) == 1 ) S += d ; } return S ; }
special contribution in weight 2 in trace formula
special contribution in weight 2 in trace formula
/* gcd(N,n/d) == 1? */