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

Correct a flaw in checking for Q65 candidate freq within FTol range.

Browse Source
This commit is contained in:
Joe Taylor 2021-05-15 14:44:42 -04:00
parent acbfc8840e
commit 9d10e38b9e
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
map65/libm65/map65a.f90
View File

@ -354,9 +354,10 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
if(mode_q65.ge.1) then if(mode_q65.ge.1) then
do icand=1,ncand do icand=1,ncand
if(cand(icand)%iflip.ne.0) cycle if(cand(icand)%iflip.ne.0) cycle !Keep only Q65 candidates
freq=cand(icand)%f+nkhz_center-48.0-1.27046 freq=cand(icand)%f+nkhz_center-48.0-1.27046
if(nqd.eq.1 .and. abs(freq-mousefqso).gt.0.001*ntol) cycle nhzdiff=nint(1000.0*(freq-mousefqso)-mousedf)
if(nqd.eq.1 .and. abs(nhzdiff).gt.ntol) cycle
ikhz=nint(freq) ikhz=nint(freq)
call timer('q65b ',0) call timer('q65b ',0)
call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, & call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, &

3
map65/libm65/q65b.f90
View File

@ -32,9 +32,6 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
common/cacb/ca,cb common/cacb/ca,cb
save save
write(71,*) nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
mycall0,hiscall0,hisgrid,mode_q65
open(9,file='wsjtx_dir.txt',status='old') open(9,file='wsjtx_dir.txt',status='old')
read(9,'(a)') wsjtx_dir !Establish the working directory read(9,'(a)') wsjtx_dir !Establish the working directory
close(9) close(9)