520   long n0, n0a, i, v = 0;  in Flx_mulspec()  local
534   a0=a+n0; n0a=n0;  in Flx_mulspec()
535   while (n0a && !a[n0a-1]) n0a--;  in Flx_mulspec()
544     c =  Flx_mulspec(a,b,p,n0a,n0b);  in Flx_mulspec()
547     c2 = Flx_addspec(a0,a,p,na,n0a);  in Flx_mulspec()
559     c  = Flx_mulspec(a,b,p,n0a,nb);  in Flx_mulspec()
644   long n0, n0a, i, v = 0;  in Flx_sqrspec()  local
654   a0=a+n0; n0a=n0;  in Flx_sqrspec()
655   while (n0a && !a[n0a-1]) n0a--;  in Flx_sqrspec()
657   c = Flx_sqrspec(a,p,n0a);  in Flx_sqrspec()
663     c1 = Flx_2_mul(Flx_mulspec(a0,a,p, na,n0a), p);  in Flx_sqrspec()
665     GEN  t = Flx_addspec(a0,a,p,na,n0a);  in Flx_sqrspec()