mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-25 05:38:46 -05:00
Correct a flaw in checking for Q65 candidate freq within FTol range.
This commit is contained in:
parent
acbfc8840e
commit
9d10e38b9e
@ -354,9 +354,10 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
|
||||
|
||||
if(mode_q65.ge.1) then
|
||||
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
|
||||
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)
|
||||
call timer('q65b ',0)
|
||||
call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, &
|
||||
|
@ -32,9 +32,6 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
|
||||
common/cacb/ca,cb
|
||||
save
|
||||
|
||||
write(71,*) nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
|
||||
mycall0,hiscall0,hisgrid,mode_q65
|
||||
|
||||
open(9,file='wsjtx_dir.txt',status='old')
|
||||
read(9,'(a)') wsjtx_dir !Establish the working directory
|
||||
close(9)
|
||||
|
Loading…
Reference in New Issue
Block a user