Select Code to Download

use strict;
use warnings;
...
printf( "\$res[%2d] = %8g   #1e%d\n", $_, $res[$_], $exp_max-$_) for (
+0..$#res);

$res[ 0] =      102   #1e2
$res[ 1] =       46   #1e1
...
$res[13] =        0   #1e-11
$res[14] =    1e-12   #1e-12