bridge/class-master/depend/pari/src/modules/algebras.c
/* mt a t_VEC of Flm modulo m */
mt a t_VEC of Flm modulo m
mt a t_VEC of Flm modulo m
static GEN
algbasismultable_Flm(GEN mt, GEN x, ulong m)
{
  pari_sp av = avma;
  long D = lg(gel(mt,1))-1, i;
  GEN z = NULL;
  for (i=1; i<=D; i++)
  {
    ulong c = x[i];
    if (c)
    {
      GEN M = Flm_Fl_mul(gel(mt,i),c, m);
      z = z? Flm_add(z, M, m): M;
    }
  }
  if (!z) { avma = av; return zero_Flm(D,D); }
  return gerepileupto(av, z);
}
static GEN algbasismultable_Flm ( GEN mt , GEN x , ulong m ) { pari_sp av = avma ; long D = lg ( gel ( mt , 1 ) ) - 1 , i ; GEN z = NULL ; for ( i = 1 ; i <= D ; i ++ ) { ulong c = x [ i ] ; if ( c ) { GEN M = Flm_Fl_mul ( gel ( mt , i ) , c , m ) ; z = z ? Flm_add ( z , M , m ) : M ; } } if ( ! z ) { avma = av ; return zero_Flm ( D , D ) ; } return gerepileupto ( av , z ) ; }
mt a t_VEC of Flm modulo m
mt a t_VEC of Flm modulo m