Lines Matching refs:prd
636 my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
638 $car = $bar = $prd = 0;
672 $prd = $q * $y->[$yi] + $car;
673 $prd -= ($car = int($prd * $RBASE)) * $MBASE; # see USE_MUL
674 $x->[$xi] += $MBASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
697 $prd = $car * $MBASE + $xi;
698 $car = $prd - ($tmp = int($prd / $dd)) * $dd; # see USE_MUL
830 my ($car,$bar,$prd,$dd,$xi,$yi,@q,$v2,$v1,@d,$tmp,$q,$u2,$u1,$u0);
832 $car = $bar = $prd = 0;
870 $prd = $q * $y->[$yi] + $car;
871 $prd -= ($car = int($prd / $MBASE)) * $MBASE;
872 $x->[$xi] += $MBASE if ($bar = (($x->[$xi] -= $prd + $bar) < 0));
894 $prd = $car * $MBASE + $xi;
895 $car = $prd - ($tmp = int($prd / $dd)) * $dd;