#pick the longest subread from pacbio data
{
if (/^>/) {
split($1, a, "/")
nn = a[1]"/"a[2]
if (nn != name && longest != "") {
print longest
maxLen = 0
}
name = nn
fname = $1
} else {
len = length($0)
if (len >= maxLen) {
longest = fname"\n"$0
maxLen = len
}
}
}
END{
print longest
}