Lines Matching refs:Powten
217 if X < Powten (S - 1) then
223 XP := X * Powten (Maxpow);
224 exit when XP >= Powten (S - 1) or else Scale < -Maxscaling;
253 XP := X * Powten (Mid);
255 if XP < Powten (S - 1) then
266 elsif XP >= Powten (S) then
287 elsif X >= Powten (S) then
293 XP := X / Powten (Maxpow);
294 exit when XP < Powten (S) or else Scale > Maxscaling;
317 XP := X / Powten (Mid);
319 if XP < Powten (S - 1) then
330 elsif XP >= Powten (S) then
361 if X >= Powten (S) then
377 if X < Powten (Unsdigs) then
581 if X >= Powten (Maxdigs) then
617 X := X * Powten (NF);
623 X := X * Powten (Maxpow);