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

Once again, use the value of Fcal (nfcal) properly in q65b.f90.

Browse Source
This commit is contained in:
Joe Taylor 2021-05-06 19:21:22 -04:00
parent c6d0efc6dc
commit 1d6835b859
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65/libm65/q65b.f90
View File

@ -41,7 +41,7 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4) if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4)
! Find best frequency and ipol from sync_dat, the "orange sync curve". ! Find best frequency and ipol from sync_dat, the "orange sync curve".
ff=ikhz+0.001*(mousedf+1270.459) !supposed freq of sync tone ff=ikhz+0.001*(mousedf+nfcal+1270.459) !supposed freq of sync tone
ifreq=nint(1000.0*(ff-nkhz_center+48)*32768.0/96000.0) !Freq index into ss(4,322,32768) ifreq=nint(1000.0*(ff-nkhz_center+48)*32768.0/96000.0) !Freq index into ss(4,322,32768)
dff=96000.0/32768.0 dff=96000.0/32768.0
ia=nint(ifreq-ntol/dff) ia=nint(ifreq-ntol/dff)