Lines Matching refs:num
228 # Pretty print num. Arguments are width, scale, and num
231 my $num = $_[2] || 0;
238 return sprintf("%s", $num);
239 } elsif (($num > 0) && ($num < 1)) { #rounding error. return 0
240 $num = 0;
243 while ($num > $scale and $index < 5) {
244 $save = $num;
245 $num = $num/$scale;
249 return sprintf("%*d", $sz, $num) if ($index == 0);
251 return sprintf("%*.1f%s", $sz - 1, $num,$suffix[$index]);
253 return sprintf("%*d%s", $sz - 1, $num,$suffix[$index]);