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
@@ -34,7 +34,7 @@ subroutine foxgen()
  common/foxcom/wave(NWAVE),nslots,nfreq,i3bit(5),cmsg(5),mycall(12)
  common/foxcom2/itone2(NN),msgbits2(KK)
  equivalence (x,cx),(y,cy)
-  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

  bcontest=.false.
  fstep=60.d0