From 1d6835b859b7368bfeadbcd1fafac774c34b52ad Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 6 May 2021 19:21:22 -0400 Subject: [PATCH] Once again, use the value of Fcal (nfcal) properly in q65b.f90. --- map65/libm65/q65b.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/map65/libm65/q65b.f90 b/map65/libm65/q65b.f90 index 931d73171..70007db1f 100644 --- a/map65/libm65/q65b.f90 +++ b/map65/libm65/q65b.f90 @@ -41,7 +41,7 @@ subroutine q65b(nutc,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, & if(hisgrid(1:4).ne.' ') grid4=hisgrid(1:4) ! 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) dff=96000.0/32768.0 ia=nint(ifreq-ntol/dff)