Lines Matching refs:seq_end

293     if ($row_href->{seq_end} > $seq_length) {
294       $row_href->{seq_end} = $seq_length;
325 	$prev_dom->{seq_end} = $curr_dom->{seq_end};
349       my $diff = $prev_dom->{seq_end} - $curr_dom->{seq_start};
352 …my ($prev_len, $cur_len) = ($prev_dom->{seq_end}-$prev_dom->{seq_start}+1, $curr_dom->{seq_end}-$c…
353 …r_dom->{seq_start} >= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} <= $prev_dom->{seq_end})) ||
354 …rr_dom->{seq_start} <= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} >= $prev_dom->{seq_end})));
362 	$diff = $prev_dom->{seq_end} - $curr_dom->{seq_start};
363 …($prev_len, $cur_len) = ($prev_dom->{seq_end}-$prev_dom->{seq_start}+1, $curr_dom->{seq_end}-$curr…
365 …r_dom->{seq_start} >= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} <= $prev_dom->{seq_end})) ||
366 …rr_dom->{seq_start} <= $prev_dom->{seq_start}) && ($curr_dom->{seq_end} >= $prev_dom->{seq_end})));
391       if ($pf_domains[$i-1]->{seq_end} >= $pf_domains[$i]->{seq_start}) {
392 	my $overlap = $pf_domains[$i-1]->{seq_end} - $pf_domains[$i]->{seq_start};
393 	$pf_domains[$i-1]->{seq_end} -= int($overlap/2);
394 	$pf_domains[$i]->{seq_start} = $pf_domains[$i-1]->{seq_end}+1;
411     my $prev_dom={seq_end=>0, pfamA_acc=>''};
426 	$prev_dom_end = $prev_dom->{seq_end};
434 	               seq_end => $curr_dom->{seq_start}-1,
458       my $right_dom_len = min($next_dom_start-$curr_dom->{seq_end}-1, # space available 
462 	my %new_dom = (seq_start=> $curr_dom->{seq_end}+1,
463 		       seq_end=> $curr_dom->{seq_end}+$right_dom_len,
498     my $prev_dom={seq_end=>0};
500       if ($curr_dom->{seq_start} - $prev_dom->{seq_end} > $min_nodom) {
501 …my %new_dom = (seq_start=>$prev_dom->{seq_end}+1, seq_end => $curr_dom->{seq_start}-1, info=>'NODO…
507     if ($seq_length - $prev_dom->{seq_end} > $min_nodom) {
508       my %new_dom = (seq_start=>$prev_dom->{seq_end}+1, seq_end=>$seq_length, info=>'NODOM');
509       if ($new_dom{seq_end} > $new_dom{seq_start}) {
527       push @feats, [$d_ref->{seq_start}, $d_ref->{seq_end}, $d_ref->{info}];
529       push @feats, [$d_ref->{seq_start}, '-', $d_ref->{seq_end},  $d_ref->{info} ];