mirror of https://github.com/saitohirga/WSJT-X.git
Another fixup for nonzero Fcal values.
This commit is contained in:
parent
858cd4e483
commit
5f784ab05e
|
@ -361,7 +361,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
|
||||||
do icand=1,ncand
|
do icand=1,ncand
|
||||||
if(cand(icand)%iflip.ne.0) cycle !Keep only Q65 candidates
|
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
|
||||||
nhzdiff=nint(1000.0*(freq-mousefqso)-mousedf)
|
nhzdiff=nint(1000.0*(freq-mousefqso)-mousedf) - nfcal
|
||||||
! Now looking for "quick decode" (nqd=1) candidates at cursor freq +/- ntol.
|
! Now looking for "quick decode" (nqd=1) candidates at cursor freq +/- ntol.
|
||||||
if(nqd.eq.1 .and. abs(nhzdiff).gt.ntol) cycle
|
if(nqd.eq.1 .and. abs(nhzdiff).gt.ntol) cycle
|
||||||
ikhz=mousefqso
|
ikhz=mousefqso
|
||||||
|
|
Loading…
Reference in New Issue