From cfa93839df52ef8094951e3ed0c2610292b3d120 Mon Sep 17 00:00:00 2001
From: Jordan Sherer <jordan@widefido.com>
Date: Fri, 5 Oct 2018 18:10:06 -0400
Subject: [PATCH] Make sure costas is completely updated

---
 lib/ft8/ft8b.f90  | 2 ++
 lib/genqra64.f90  | 2 +-
 lib/qra64code.f90 | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index 15a0415..aa462ef 100644
--- a/lib/ft8/ft8b.f90
+++ b/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
 
diff --git a/lib/genqra64.f90 b/lib/genqra64.f90
index 819f13c..f1bc9bf 100644
--- a/lib/genqra64.f90
+++ b/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
diff --git a/lib/qra64code.f90 b/lib/qra64code.f90
index 0f9c16b..1d1336f 100644
--- a/lib/qra64code.f90
+++ b/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'