Preparing for decoding of Q65-30x modes. Not there yet.

qmap/libqmap/getcand2.f90

@@ -59,6 +59,8 @@ subroutine getcand2(ss,savg0,nts_q65,nagain,ntol,f0_selected,cand,ncand)
      ia=max(1,min(i,i0-nguard))
      ib=min(i0+nbw+nguard,32768)
      savg(ia:ib)=0.
+     write(*,3301) j,fpk+80-48,xdt,snr_sync
+3301 format(i3,f8.1,f8.2,f8.1)
      if(j.ge.MAX_CANDIDATES) exit
   enddo
   ncand=j                              !Total number of candidates found

qmap/libqmap/q65_sync.f90

@@ -8,21 +8,15 @@ subroutine q65_sync(ss,i0,nts_q65,sync_ok,snr,xdt)
   real ccf(0:LAGMAX)               !The WSJT "blue curve", peak at DT
   logical sync_ok
   logical first
-  integer isync(22),ipk(1)
+  integer isync0(22),isync(22),ipk(1)
 
 ! Q65 sync symbols
-  data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/
+  data isync0/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/
-  data first/.true./
-  save first,isync
 
   tstep=0.15                      !0.5*tsym_Q65-30x, 0.25*tsys_Q65-60x
-  if(first) then
+  do i=1,22                                !Expand sync stride for Q65-60x
-     fac=0.6/tstep
+     isync(i)=4*(isync0(i)-1) + 1
-     do i=1,22                                !Expand the Q65 sync stride
+  enddo
-        isync(i)=nint((isync(i)-1)*fac) + 1
-     enddo
-     first=.false.
-  endif
 
   m=nts_q65/2
   i1=max(1,i0-m)
@@ -32,7 +26,7 @@ subroutine q65_sync(ss,i0,nts_q65,sync_ok,snr,xdt)
      do j=1,22                        !Test for Q65 sync
         k=isync(j) + lag 
         ccf(lag)=ccf(lag) + sum(ss(k,i1:i2)) + sum(ss(k+1,i1:i2)) &
-             + sum(ss(k+2,i1:i2))
+             + sum(ss(k+2,i1:i2)) + sum(ss(k+3,i1:i2))
 ! Q: Should we use weighted sums, perhaps a Lorentzian peak?
      enddo
   enddo