w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Change the unmasked bits for iaptype 4, 5, 6. Tweak the SNR limits in test_q65.

This commit is contained in:
Joe Taylor 2020-11-19 15:25:28 -05:00
parent 0bcb2f0d11
commit 13d0b20661
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/qra/q65/q65_ap.f90
View File

@ -146,11 +146,12 @@ subroutine q65_ap(nQSOprogress,ipass,ncontest,lapcqonly,iaptype, &
if(iaptype.eq.4 .or. iaptype.eq.5 .or. iaptype.eq.6) then
apmask=0
if(ncontest.le.5 .or. (ncontest.eq.7.and.iaptype.eq.6)) then
apmask(1:78)=1 ! mycall, hiscall, RRR|73|RR73
apmask(1:78)=1 !MyCall, HisCall, RRR|73|RR73
apmask(59:63)=0 !Reduce the rate of false decodes
apsymbols(1:58)=apsym0
if(iaptype.eq.4) apsymbols(59:77)=mrrr
if(iaptype.eq.5) apsymbols(59:77)=m73
if(iaptype.eq.6) apsymbols(59:77)=mrr73
if(iaptype.eq.6) apsymbols(59:77)=mrr73
else if(ncontest.eq.7.and.iaptype.eq.4) then ! Hound listens for MyCall RR73;...
apmask(1:28)=1
apsymbols(1:28)=apsym0(1:28)

10
lib/test_q65.f90
View File

@ -54,7 +54,7 @@ program test_q65
else
stop 'Invalid TR period'
endif
ia=i50 + 5
ia=i50 + 7
ib=i50 - 10
if(snr.ne.0.0) then
ia=99
@ -145,9 +145,11 @@ program test_q65
1100 format(f5.1,i3,f5.1,3i5,i4,i6,6i4,f6.2)
if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then
snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec10-ndec1)
write(13,1200) ndepth,fdop,csubmode,snr_thresh
1200 format(i3,f6.1,2x,a1,f7.1)
flush(13)
open(13,file='snr_thresh.out',status='unknown',position='append')
write(13,1200) ntrperiod,csubmode,ndepth,nQSOprogress,nfiles, &
fdop,snr_thresh,trim(msg)
1200 format(i3,a1,2i3,i5,2f7.1,2x,a)
close(13)
endif
flush(6)
flush(12)