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

Fix the problem with q3 decodes when DxCall is compount and DxGrid is present.

Browse Source
This commit is contained in:
Joe Taylor 2021-10-19 14:43:17 -04:00
parent ef438919e4
commit 12efb098bb
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/qra/q65/q65_set_list.f90
View File

@ -33,8 +33,11 @@ subroutine q65_set_list(mycall,hiscall,hisgrid,codewords,ncw)
if(i.eq.2) msg(j0:j0+2)='RRR' if(i.eq.2) msg(j0:j0+2)='RRR'
if(i.eq.3) msg(j0:j0+3)='RR73' if(i.eq.3) msg(j0:j0+3)='RR73'
if(i.eq.4) msg(j0:j0+1)='73' if(i.eq.4) msg(j0:j0+1)='73'
if(i.eq.5) msg='CQ '//trim(hiscall)//' '//hisgrid(1:4) if(i.eq.5) then
if(i.eq.6) msg(j0:j0+3)=hisgrid(1:4) if(his_std) msg='CQ '//trim(hiscall)//' '//hisgrid(1:4)
if(.not.his_std) msg='CQ '//trim(hiscall)
endif
if(i.eq.6 .and. his_std) msg(j0:j0+3)=hisgrid(1:4)
if(i.ge.7 .and. i.le.206) then if(i.ge.7 .and. i.le.206) then
isnr = -50 + (i-7)/2 isnr = -50 + (i-7)/2
if(iand(i,1).eq.1) then if(iand(i,1).eq.1) then