Correct the reported f0 for Q65 signals. It was off by one tone spacing.

This commit is contained in:
Joe Taylor 2020-12-22 13:21:31 -05:00
parent e7d48e0f5b
commit 408ac7bd0d

View File

@ -146,7 +146,7 @@ subroutine q65_sync(nutc,iwave,nmax,mode_q65,codewords,ncw,nsps,nfqso,ntol, &
ijpk=maxloc(ccf(-ia:ia,:)) ijpk=maxloc(ccf(-ia:ia,:))
ipk=ijpk(1)-ia-1 ipk=ijpk(1)-ia-1
jpk=ijpk(2)-53-1 jpk=ijpk(2)-53-1
f0=nfqso + (ipk-1)*df f0=nfqso + (ipk-mode_q65)*df
xdt=jpk*dtstep xdt=jpk*dtstep
imsg_best=imsg imsg_best=imsg
ccf1=ccf(:,jpk) ccf1=ccf(:,jpk)