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

More Q65 test program tweaks.

Browse Source
This commit is contained in:
Joe Taylor 2020-11-19 15:41:15 -05:00
parent 13d0b20661
commit 3662a76de7
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -147,7 +147,7 @@ subroutine q65_ap(nQSOprogress,ipass,ncontest,lapcqonly,iaptype, &
apmask=0 apmask=0
if(ncontest.le.5 .or. (ncontest.eq.7.and.iaptype.eq.6)) then 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 apmask(59:66)=0 !Reduce the rate of false decodes
apsymbols(1:58)=apsym0 apsymbols(1:58)=apsym0
if(iaptype.eq.4) apsymbols(59:77)=mrrr if(iaptype.eq.4) apsymbols(59:77)=mrrr
if(iaptype.eq.5) apsymbols(59:77)=m73 if(iaptype.eq.5) apsymbols(59:77)=m73

12
lib/test_q65.f90
View File

@ -91,7 +91,7 @@ program test_q65
write(*,1010) (j,j=0,6) write(*,1010) (j,j=0,6)
write(12,1010) (j,j=0,6) write(12,1010) (j,j=0,6)
1010 format(' SNR d Dop Sync DecN Dec1 Bad',i6,6i4,' tdec'/68('-')) 1010 format(' SNR Mode d Dop Sync DecN Dec1 Bad',i6,6i4,' tdec'/73('-'))
dterr=tsym/4.0 dterr=tsym/4.0
nferr=max(1,nint(0.5*baud),nint(fdop/3.0)) nferr=max(1,nint(0.5*baud),nint(fdop/3.0))
@ -138,11 +138,11 @@ program test_q65
10 close(10) 10 close(10)
xdt_avg=0. xdt_avg=0.
xdt_rms=0. xdt_rms=0.
write(*,1100) snr1,ndepth,fDop,nsync,ndecn,ndec1,nfalse,naptype, & write(*,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, &
tdec/nfiles ndec1,nfalse,naptype,tdec/nfiles
write(12,1100) snr1,ndepth,fDop,nsync,ndecn,ndec1,nfalse,naptype, & write(12,1100) snr1,ntrperiod,csubmode,ndepth,fDop,nsync,ndecn, &
tdec/nfiles ndec1,nfalse,naptype,tdec/nfiles
1100 format(f5.1,i3,f5.1,3i5,i4,i6,6i4,f6.2) 1100 format(f5.1,i4,a1,i3,f5.1,3i5,i4,i6,6i4,f6.2)
if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then if(ndec1.lt.nfiles/2 .and. ndec10.ge.nfiles/2) then
snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec10-ndec1) snr_thresh=snr1 + float(nfiles/2 - ndec1)/(ndec10-ndec1)
open(13,file='snr_thresh.out',status='unknown',position='append') open(13,file='snr_thresh.out',status='unknown',position='append')