[Bio] / FigKernelPackages / ProtSims.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/ProtSims.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5, Sun Aug 23 01:20:23 2009 UTC revision 1.6, Sun Aug 23 01:37:28 2009 UTC
# Line 158  Line 158 
158  sub condense {  sub condense {
159      my($pieces) = @_;      my($pieces) = @_;
160    
161      my $best_sc = $pieces->[0]->[9];      my $best_sc = $pieces->[0]->[10];
162      my @sims = sort { ($a->[6] <=> $b->[6]) } @$pieces;      my @sims = sort { ($a->[6] <=> $b->[6]) } @$pieces;
163      while ((@sims > 1) &&      while ((@sims > 1) &&
164             ($sims[1]->[6] <= ($sims[0]->[7] + 100)) &&             ($sims[1]->[6] <= ($sims[0]->[7] + 100)) &&
# Line 169  Line 169 
169          $sims[0]->[9] = $sims[1]->[9];          $sims[0]->[9] = $sims[1]->[9];
170          splice(@sims,1,1);          splice(@sims,1,1);
171      }      }
172        $sims[0]->[10] = $best_sc;
173      return $sims[0];      return $sims[0];
174  }  }
175    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3