Lines Matching refs:ai
18 local($a,$ai,$b,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
23 &comment("mul a[$ai]*b[$bi]");
46 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
51 &comment("sqr a[$ai]*a[$bi]");
57 if ($ai == $bi)
75 local($r,$a,$ai,$bi,$c0,$c1,$c2,$pos,$i,$na,$nb)=@_;
80 &comment("sqr a[$ai]*a[$bi]");
86 if ($ai == $bi)
109 local($i,$as,$ae,$bs,$be,$ai,$bi);
140 $ai=$as;
158 $na=($ai-1);
167 &mul_add_c($a,$ai,$b,$bi,$c0,$c1,$c2,$v,$i,$na,$nb);
175 $ai--;
200 local($i,$as,$ae,$bs,$be,$ai,$bi);
229 $ai=$as;
237 if (($ai-1) < ($bi+1))
246 $na=$ai-1;
254 if ($ai == $bi)
256 &sqr_add_c($r,$a,$ai,$bi,
261 &sqr_add_c2($r,$a,$ai,$bi,
271 $ai--;