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