From 5f784ab05ee70527a04ec35025d0404c15bd1096 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 24 May 2021 13:33:51 -0400 Subject: [PATCH] Another fixup for nonzero Fcal values. --- map65/libm65/map65a.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90 index 9b6c7463d..b68e98b53 100644 --- a/map65/libm65/map65a.f90 +++ b/map65/libm65/map65a.f90 @@ -361,7 +361,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, & do icand=1,ncand if(cand(icand)%iflip.ne.0) cycle !Keep only Q65 candidates 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. if(nqd.eq.1 .and. abs(nhzdiff).gt.ntol) cycle ikhz=mousefqso