Make sure costas is completely updated

lib/ft8/ft8b.f90

@@ -146,7 +146,9 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
 ! hard sync sum - max is 21
   nsync=is1+is2+is3
   if(nsync .le. 6) then ! bail out
+    call timer('badnsync', 0)
     nbadcrc=1
+    call timer('badnsync', 1)
     return
   endif
 

lib/genqra64.f90

@@ -12,7 +12,7 @@ subroutine genqra64(msg0,ichk,msgsent,itone,itype)
   integer dgen(13)
   integer sent(63)
   integer icos7(0:6)
-  data icos7/2,5,6,0,4,1,3/     !Defines a 7x7 Costas array
+  data icos7/4,2,5,6,1,3,0/                   !Costas 7x7 tone pattern
   save
 
   if(msg0(1:1).eq.'@') then

lib/qra64code.f90

@@ -10,7 +10,7 @@ program QRA64code
   logical ltext
   integer dgen(12),sent(63),dec(12)
   integer icos7(0:6)
-  data icos7/2,5,6,0,4,1,3/     !Defines a 7x7 Costas array
+  data icos7/4,2,5,6,1,3,0/                   !Costas 7x7 tone pattern
 
   include 'testmsg.f90'