Lines Matching refs:xi
422 my @prod = (); my ($prod,$car,$cty,$xi,$yi);
424 for $xi (@$xv)
431 # $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
436 # $xi = shift @prod;
439 # looping through this if $xi == 0 is silly - so optimize it away!
440 $xi = (shift @prod || 0), next if $xi == 0;
443 $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
445 ## $prod = $prod[$cty]; $prod += ($car + $xi * $yi); # no ||0 here
450 $xi = shift @prod || 0; # || 0 makes v5.005_3 happy
499 my @prod = (); my ($prod,$car,$cty,$xi,$yi);
500 for $xi (@$xv)
503 # looping through this if $xi == 0 is silly - so optimize it away!
504 $xi = (shift @prod || 0), next if $xi == 0;
507 $prod = $xi * $yi + ($prod[$cty] || 0) + $car;
512 $xi = shift @prod || 0; # || 0 makes v5.005_3 happy
636 my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
641 for $xi (@$x)
643 $xi = $xi * $dd + $car;
644 $xi -= ($car = int($xi * $RBASE)) * $MBASE; # see USE_MUL
670 for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi)
674 $x->[$xi] += $MBASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
679 for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi)
681 $x->[$xi] -= $MBASE
682 if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $MBASE));
695 for $xi (reverse @$x)
697 $prd = $car * $MBASE + $xi;
830 my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
835 for $xi (@$x)
837 $xi = $xi * $dd + $car;
838 $xi -= ($car = int($xi / $MBASE)) * $MBASE;
868 for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi)
872 $x->[$xi] += $MBASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
877 for ($yi = 0, $xi = $#$x-$#$y-1; $yi <= $#$y; ++$yi,++$xi)
879 $x->[$xi] -= $MBASE
880 if ($car = (($x->[$xi] += $y->[$yi] + $car) >= $MBASE));
892 for $xi (reverse @$x)
894 $prd = $car * $MBASE + $xi;