w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-22 04:11:16 -05:00
Code Issues Packages Projects Releases Wiki Activity

Set unpk77_success=.false. for messages with i3=0 and n3>6.

Browse Source
This commit is contained in:
Steven Franke 2020-07-31 14:15:49 -05:00 committed by Bill Somerville
parent 64f29318aa
commit 37e05f6074
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/77bit/packjt77.f90
View File

@ -278,6 +278,7 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
read(c77(72:77),'(2b3)') n3,i3 read(c77(72:77),'(2b3)') n3,i3
msg=repeat(' ',37) msg=repeat(' ',37)
if(i3.eq.0 .and. n3.eq.0) then if(i3.eq.0 .and. n3.eq.0) then
! 0.0 Free text ! 0.0 Free text
call unpacktext77(c77(1:71),msg(1:13)) call unpacktext77(c77(1:71),msg(1:13))
@ -421,7 +422,10 @@ subroutine unpack77(c77,nrx,msg,unpk77_success)
if(.not.unpkg4_success) unpk77_success=.false. if(.not.unpkg4_success) unpk77_success=.false.
msg=trim(call_1)//' '//grid6 msg=trim(call_1)//' '//grid6
endif endif
else if(i3.eq.0 .and. n3.gt.6) then
unpk77_success=.false.
else if(i3.eq.1 .or. i3.eq.2) then else if(i3.eq.1 .or. i3.eq.2) then
! Type 1 (standard message) or Type 2 ("/P" form for EU VHF contest) ! Type 1 (standard message) or Type 2 ("/P" form for EU VHF contest)
read(c77,1000) n28a,ipa,n28b,ipb,ir,igrid4,i3 read(c77,1000) n28a,ipa,n28b,ipb,ir,igrid4,i3