Lines Matching refs:Powten
221 if X < Powten (S - 1) then
227 XP := X * Powten (Maxpow);
228 exit when XP >= Powten (S - 1) or else Scale < -Maxscaling;
257 XP := X * Powten (Mid);
259 if XP < Powten (S - 1) then
270 elsif XP >= Powten (S) then
291 elsif X >= Powten (S) then
297 XP := X / Powten (Maxpow);
298 exit when XP < Powten (S) or else Scale > Maxscaling;
321 XP := X / Powten (Mid);
323 if XP < Powten (S - 1) then
334 elsif XP >= Powten (S) then
365 if X >= Powten (S) then
381 if X < Powten (Unsdigs) then
585 if X >= Powten (Maxdigs) then
621 X := X * Powten (NF);
627 X := X * Powten (Maxpow);