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

Reject standard messages with CQ and a Roger or CQ and a report.

Browse Source
This commit is contained in:
Steve Franke 2018-10-27 20:58:49 -05:00
parent 98c9810fba
commit fe44bc6201
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/77bit/packjt77.f90
View File

@ -372,6 +372,7 @@ subroutine unpack77(c77,msg,unpk77_success)
grid4(4:4)=char(j4+ichar('0')) grid4(4:4)=char(j4+ichar('0'))
if(ir.eq.0) msg=trim(call_1)//' '//trim(call_2)//' '//grid4 if(ir.eq.0) msg=trim(call_1)//' '//trim(call_2)//' '//grid4
if(ir.eq.1) msg=trim(call_1)//' '//trim(call_2)//' R '//grid4 if(ir.eq.1) msg=trim(call_1)//' '//trim(call_2)//' R '//grid4
if(msg(1:3).eq.'CQ ' .and. ir.eq.1) unpk77_success=.false.
else else
irpt=igrid4-MAXGRID4 irpt=igrid4-MAXGRID4
if(irpt.eq.1) msg=trim(call_1)//' '//trim(call_2) if(irpt.eq.1) msg=trim(call_1)//' '//trim(call_2)
@ -384,6 +385,7 @@ subroutine unpack77(c77,msg,unpk77_success)
if(ir.eq.0) msg=trim(call_1)//' '//trim(call_2)//' '//crpt if(ir.eq.0) msg=trim(call_1)//' '//trim(call_2)//' '//crpt
if(ir.eq.1) msg=trim(call_1)//' '//trim(call_2)//' R'//crpt if(ir.eq.1) msg=trim(call_1)//' '//trim(call_2)//' R'//crpt
endif endif
if(msg(1:3).eq.'CQ ' .and. irpt.ge.2) unpk77_success=.false.
endif endif
else if(i3.eq.3) then else if(i3.eq.3) then