80:  my ($lines, @masses, @names, @charges, @resnames, @respt, $symbol);
 99:  for ($lines=$pointers{respt}[0]; $lines<=$pointers{respt}[1]; $lines ++) {
100:    push @respt, (unpack (("A8" x (length($file[$lines]) / 8)), $file[$lines]));
101:  }
104:  my ($n, $r) = (0, 0);
105:  for $n (0 .. $#masses) {
109:    if ($n == ($respt[$r]-1)) {
110:      $r++;
111:    }