Select Code to Download

  my @fractions = unpack('A5'x$nt, substr($record, 0, 5*$nt));
  my @exps = unpack('A2'x$nt, substr($record, 5*$nt, 2*$nt));

Benchmark: running Alba_1, Alba_2, rbi_fortran, each for at least 5 CP
+U seconds...
    Alba_1:  6 wallclock secs ( 5.31 usr +  0.00 sys =  5.31 CPU) @ 39
+94.16/s (n=21217)
    Alba_2:  6 wallclock secs ( 5.41 usr +  0.00 sys =  5.41 CPU) @ 47
+89.68/s (n=25893)
rbi_fortran:  5 wallclock secs ( 5.26 usr +  0.00 sys =  5.26 CPU) @ 5
+211.78/s (n=28266)

Benchmark: running Alba_1, Alba_2, rbi_fortran, each for at least 5 CP
+U seconds...
    Alba_1:  5 wallclock secs ( 5.39 usr +  0.00 sys =  5.39 CPU) @ 12
+14.06/s (n=6545)
    Alba_2:  6 wallclock secs ( 5.41 usr +  0.00 sys =  5.41 CPU) @ 14
+25.64/s (n=7707)
rbi_fortran:  5 wallclock secs ( 5.37 usr +  0.00 sys =  5.37 CPU) @ 1
+540.09/s (n=8278)