Fix a bug parsing EU VHF message with both calls "/P". (The only message with both calls hashed is type 5, EU VHF Contest.)

This commit is contained in:
Joe Taylor 2020-05-12 13:40:00 -04:00 committed by Bill Somerville
parent ce15159aaa
commit c97a127c68
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F

View File

@ -1157,6 +1157,7 @@ subroutine pack77_3(nwords,w,i3,n3,c77)
"NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ", &
"LB ","NU ","YT ","PEI","DC "/
if(w(1)(1:1).eq.'<' .and. w(2)(1:1).eq.'<') go to 900
if(nwords.eq.4 .or. nwords.eq.5 .or. nwords.eq.6) then
i1=1
if(trim(w(1)).eq.'TU;') i1=2