3 # Last changed Time-stamp: <1999-09-29 13:24:23 ivo>
4 # produce dot bracket notation of an RNA secondary structure from
9 if ((/ = /) && ($#F!=5)) {
11 print "$seq\n" unless ($seq eq $oldseq);
20 if ($F[4]==0) {$s .= "."; next}
21 $s .= "(" if ($F[0]<$F[4]);
22 $s .= ")" if ($F[0]>$F[4]);
24 print "$seq\n" unless ($seq eq $oldseq);
25 print "$s ($E)\n" if defined($s);