bridge/class-master/depend/pari/src/basemath/mftrace.c
/* contribution of hyperbolic matrices in dimension formula */
contribution of hyperbolic matrices in dimension formula
contribution of hyperbolic matrices in dimension formula
static GEN
A3(long N, long FC)
{
  long i, S, NF, l;
  GEN D;
  if (FC == 1) return sstoQ(nuinf(N),2);
  D = mydivisorsu(N); l = lg(D);
  S = 0; NF = N/FC;
  for (i = 1; i < l; i++)
  {
    long g = ugcd(D[i], D[l-i]);
    if (NF%g == 0) S += myeulerphiu(g);
  }
  return sstoQ(S, 2);
}
static GEN A3 ( long N , long FC ) { long i , S , NF , l ; GEN D ; if ( FC == 1 ) return sstoQ ( nuinf ( N ) , 2 ) ; D = mydivisorsu ( N ) ; l = lg ( D ) ; S = 0 ; NF = N / FC ; for ( i = 1 ; i < l ; i ++ ) { long g = ugcd ( D [ i ] , D [ l - i ] ) ; if ( NF % g == 0 ) S += myeulerphiu ( g ) ; } return sstoQ ( S , 2 ) ; }
contribution of hyperbolic matrices in dimension formula
contribution of hyperbolic matrices in dimension formula