First fully working version of 'a7' (q3-style) decoding for FT8.

lib/ft8/ft8b.f90

@@ -104,13 +104,6 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
   call timer('ft8_down',0)
   call ft8_downsample(dd0,newdat,f1,cd0)   !Mix f1 to baseband and downsample
   call timer('ft8_down',1)
-  if(abs(nint(f1)-527).le.1) then
-     rewind(40)
-     do i=0,3199
-        write(40,3040) i,i/200.0,cd0(i)
-3040    format(i5,f10.6,2x,2f10.3)
-     enddo
-  endif
 
   i0=nint((xdt+0.5)*fs2)                   !Initial guess for start of signal
   smax=0.0

lib/ft8/ft8q3.f90

@@ -69,6 +69,14 @@ subroutine ft8q3(cd,xdt,f0,call_1,call_2,grid4,msgbest,snr)
 ! Generate complex cwave
      call gen_ft8wave(itone,NN,NSPS,bt,fs,f0,cwave,xjunk,1,NWAVE)
 
+     if(imsg.eq.79) then
+        print*,NN,NSPS,bt,fs,f0,NWAVE,itone(1:7)
+        do i=0,NWAVE-1
+           write(45,3045) i,cd(i),100*cwave(i)
+3045       format(i5,4e12.3)
+        enddo
+     endif
+
      lagmax=-1
      ccfmax=0.
      nsum=32*2