From 1e7c53e0e41fc848eb0063910669b0bce74a0fab Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 30 Jan 2021 11:49:08 -0500 Subject: [PATCH] Fix several comments. --- lib/qra/q65/q65.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index f7f2cf665..8f2413297 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -62,8 +62,8 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & real, allocatable :: s1(:,:) !Symbol spectra, 1/8-symbol steps real, allocatable :: s3(:,:) !Data-symbol energies s3(LL,63) real, allocatable :: ccf(:,:) !CCF(freq,lag) - real, allocatable :: ccf1(:) !CCF(freq) at best lag - real, allocatable :: ccf2(:) !CCF(freq) at any lag + real, allocatable :: ccf1(:) !CCF(freq) at fixed lag (red) + real, allocatable :: ccf2(:) !Max CCF(freq) at any lag (orange) data first/.true./ save first @@ -185,6 +185,8 @@ subroutine q65_dec0(iavg,nutc,iwave,ntrperiod,nfqso,ntol,ndepth,lclearave, & endif smax=maxval(ccf1) + +! Estimate frequenct spread i1=-9999 i2=-9999 do i=-ia,ia