bridge/class-master/depend/pari/src/basemath/mftrace.c
/* Apply atkin Q to closure F */
Apply atkin Q to closure F
Apply atkin Q to closure F
GEN
mfatkin(GEN mfa, GEN F)
{
  pari_sp av = avma;
  GEN z, mfB, MQ, mf;
  checkmfa(mfa);
  mfB= gel(mfa,1);
  MQ = gel(mfa,2);
  mf = gel(mfa,4);
  if (typ(mfB) == t_INT) mfB = mf;
  z = RgM_RgC_mul(MQ, mftobasis_i(mf,F));
  return gerepileupto(av, mflinear(mfB, z));
}
GEN mfatkin ( GEN mfa , GEN F ) { pari_sp av = avma ; GEN z , mfB , MQ , mf ; checkmfa ( mfa ) ; mfB = gel ( mfa , 1 ) ; MQ = gel ( mfa , 2 ) ; mf = gel ( mfa , 4 ) ; if ( typ ( mfB ) == t_INT ) mfB = mf ; z = RgM_RgC_mul ( MQ , mftobasis_i ( mf , F ) ) ; return gerepileupto ( av , mflinear ( mfB , z ) ) ; }
Apply atkin Q to closure F
Apply atkin Q to closure F