Increase spacing of sync tones in QRA64 by 10x.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7298 ab8295b8-cf94-4d9e-aec4-7959e3be5d79

lib/genqra64.f90

@@ -39,11 +39,11 @@ subroutine genqra64(msg0,ichk,msgsent,itone,itype)
      if(ichk.ne.0) go to 999             !Return if checking only
      call qra64_enc(dgen,sent)           !Encode using QRA64
 
-     itone(1:7)=icos7                    !Insert 7x7 Costas array in 3 places
+     itone(1:7)=10*icos7                    !Insert 7x7 Costas array in 3 places
      itone(8:39)=sent(1:32)
-     itone(40:46)=icos7
+     itone(40:46)=10*icos7
      itone(47:77)=sent(33:63)
-     itone(78:84)=icos7
+     itone(78:84)=10*icos7
   endif
 
 999 return

lib/qra64a.f90

@@ -15,8 +15,6 @@ subroutine qra64a(dd,nutc,nf1,nf2,nfqso,ntol,mode64,mycall_12,hiscall_12,   &
   real dd(NMAX)                              !Raw data sampled at 12000 Hz
   real s3(0:63,1:63)                         !Symbol spectra
   integer dat4(12)                           !Decoded message (as 12 integers)
-  integer icos7(0:6)
-  data icos7/2,5,6,0,4,1,3/                  !Costas 7x7 pattern
   data nc1z/-1/,nc2z/-1/,ng2z/-1/
   save
 

lib/sync64.f90

@@ -27,7 +27,7 @@ subroutine sync64(dd,nf1,nf2,nfqso,ntol,mode64,maxf1,dtx,f0,jpk,kpk,snrdb,c0)
      k=-1
      phi=0.
      do j=0,6                               !Compute complex Costas waveform
-        dphi=twopi*icos7(j)*dfgen/4000.0
+        dphi=twopi*10.0*icos7(j)*dfgen/4000.0
         do i=1,2304
            phi=phi + dphi
            if(phi.gt.twopi) phi=phi-twopi