sub decode {
  my ($record, $nt, $val_missing) = @_;
  my $template = ('A5' x $nt) . ('A2' x $nt);
  my @values = unpack($template, $record);
  my @fractions = @values[0 .. $nt-1];
  my @exponents = @values[$nt .. $#values];