bridge/class-master/depend/pari/src/basemath/mftrace.c
/* a ideal coprime to bnr modulus */
a ideal coprime to bnr modulus
a ideal coprime to bnr modulus
static long
mfdiheval(GEN bnr, GEN w, GEN a)
{
  GEN L, cycn = gel(w,1), chin = gel(w,2);
  long ordmax = cycn[1];
  L = ZV_to_Flv(isprincipalray(bnr,a), ordmax);
  return Flv_dotproduct(chin, L, ordmax);
}
static long mfdiheval ( GEN bnr , GEN w , GEN a ) { GEN L , cycn = gel ( w , 1 ) , chin = gel ( w , 2 ) ; long ordmax = cycn [ 1 ] ; L = ZV_to_Flv ( isprincipalray ( bnr , a ) , ordmax ) ; return Flv_dotproduct ( chin , L , ordmax ) ; }
a ideal coprime to bnr modulus
a ideal coprime to bnr modulus