bridge/class-master/depend/pari/src/basemath/bibli1.c
/* same, arbitrary coefficients [20% slower for t_REAL at DEFAULTPREC] */
same, arbitrary coefficients [20% slower for t_REAL at DEFAULTPREC]
same arbitrary coefficients [ 20% slower for t_REAL at DEFAULTPREC ]
static void
RgC_ApplyQ(GEN Q, GEN r)
{
  GEN s, rd, beta = gel(Q,1), v = gel(Q,2);
  long i, l = lg(v), lr = lg(r);
  rd = r + (lr - l);
  s = gmul(gel(v,1), gel(rd,1));
  for (i=2; i<l; i++) s = gadd(s, gmul(gel(v,i) ,gel(rd,i)));
  s = gmul(beta, s);
  for (i=1; i<l; i++)
    if (signe(gel(v,i))) gel(rd,i) = gsub(gel(rd,i), gmul(s, gel(v,i)));
}
static void RgC_ApplyQ ( GEN Q , GEN r ) { GEN s , rd , beta = gel ( Q , 1 ) , v = gel ( Q , 2 ) ; long i , l = lg ( v ) , lr = lg ( r ) ; rd = r + ( lr - l ) ; s = gmul ( gel ( v , 1 ) , gel ( rd , 1 ) ) ; for ( i = 2 ; i < l ; i ++ ) s = gadd ( s , gmul ( gel ( v , i ) , gel ( rd , i ) ) ) ; s = gmul ( beta , s ) ; for ( i = 1 ; i < l ; i ++ ) if ( signe ( gel ( v , i ) ) ) gel ( rd , i ) = gsub ( gel ( rd , i ) , gmul ( s , gel ( v , i ) ) ) ; }
same, arbitrary coefficients [20% slower for t_REAL at DEFAULTPREC]
same arbitrary coefficients [ 20% slower for t_REAL at DEFAULTPREC ]