bridge/class-master/depend/pari/src/basemath/mftrace.c
/* Dimension of the space of Eisenstein series */
Dimension of the space of Eisenstein series
Dimension of the space of Eisenstein series
long
mfeisensteindim(long N, long k, GEN CHI)
{
  pari_sp av = avma;
  long s, FC = CHI? mfcharconductor(CHI): 1;
  if (k <= 0) return (k == 0 && FC == 1)? 1: 0;
  s = itos(gmul2n(A3(N, FC), 1));
  if (k > 1) s -= A4(k, FC);
  else s >>= 1;
  avma = av; return s;
}
long mfeisensteindim ( long N , long k , GEN CHI ) { pari_sp av = avma ; long s , FC = CHI ? mfcharconductor ( CHI ) : 1 ; if ( k <= 0 ) return ( k == 0 && FC == 1 ) ? 1 : 0 ; s = itos ( gmul2n ( A3 ( N , FC ) , 1 ) ) ; if ( k > 1 ) s -= A4 ( k , FC ) ; else s >>= 1 ; avma = av ; return s ; }
Dimension of the space of Eisenstein series
Dimension of the space of Eisenstein series