bridge/class-master/depend/pari/src/basemath/Flx.c
/*Lift coefficient of B to constant Flx, to give a FlxY*/
Lift coefficient of B to constant Flx, to give a FlxY
Lift coefficient of B to constant Flx to give a FlxY
GEN
Fly_to_FlxY(GEN B, long sv)
{
  long lb=lg(B);
  long i;
  GEN b=cgetg(lb,t_POL);
  b[1]=evalsigne(1)|(((ulong)B[1])&VARNBITS);
  for (i=2; i<lb; i++)
    gel(b,i) = Fl_to_Flx(B[i], sv);
  return FlxX_renormalize(b, lb);
}
GEN Fly_to_FlxY ( GEN B , long sv ) { long lb = lg ( B ) ; long i ; GEN b = cgetg ( lb , t_POL ) ; b [ 1 ] = evalsigne ( 1 ) | ( ( ( ulong ) B [ 1 ] ) & VARNBITS ) ; for ( i = 2 ; i < lb ; i ++ ) gel ( b , i ) = Fl_to_Flx ( B [ i ] , sv ) ; return FlxX_renormalize ( b , lb ) ; }
Lift coefficient of B to constant Flx, to give a FlxY
Lift coefficient of B to constant Flx to give a FlxY