Updated costas to actually be a costas array. See 7x7 array enumeration here: http://jameskbeard.com/jameskbeard/Files.html#CostasArrays

2018-09-19 14:27:28 -04:00
parent 00cede3763
commit 2ab31a663a
6 changed files with 6 additions and 6 deletions
@@ -33,7 +33,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
  complex csymb(32)
  logical first,newdat,lsubtract,lapon,lapcqonly,nagain
  equivalence (s1,s1sort)
-  data icos7/2,5,6,0,4,1,3/
+  data icos7/4,2,5,6,1,3,0/
  data mcq/1,1,1,1,1,0,1,0,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,1,1,0,0,1/
  data mrrr/0,1,1,1,1,1,1,0,1,1,0,0,1,1,1,1/
  data m73/0,1,1,1,1,1,1,0,1,1,0,1,0,0,0,0/