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

This commit is contained in:
Jordan Sherer
2018-09-19 14:27:28 -04:00
parent 00cede3763
commit 2ab31a663a
6 changed files with 6 additions and 6 deletions
+1 -1
View File
@@ -17,7 +17,7 @@ subroutine sync8(dd,nfa,nfb,syncmin,nfqso,s,candidate,ncand,sbase)
integer indx(NH1)
integer ii(1)
integer icos7(0:6)
data icos7/2,5,6,0,4,1,3/ !Costas 7x7 tone pattern
data icos7/4,2,5,6,1,3,0/ !Costas 7x7 tone pattern
equivalence (x,cx)
! Compute symbol spectra, stepping by NSTEP steps.