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
parent f9959deff2
commit 032de4a2c9

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