chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make sure costas is completely updated

Browse Source
This commit is contained in:
Jordan Sherer 2018-10-05 18:10:06 -04:00
parent 6a8b3960d7
commit cfa93839df
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/ft8b.f90
View File

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

2
lib/genqra64.f90
View File

@ -12,7 +12,7 @@ subroutine genqra64(msg0,ichk,msgsent,itone,itype)
integer dgen(13) integer dgen(13)
integer sent(63) integer sent(63)
integer icos7(0:6) 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 save
if(msg0(1:1).eq.'@') then if(msg0(1:1).eq.'@') then

2
lib/qra64code.f90
View File

@ -10,7 +10,7 @@ program QRA64code
logical ltext logical ltext
integer dgen(12),sent(63),dec(12) integer dgen(12),sent(63),dec(12)
integer icos7(0:6) 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' include 'testmsg.f90'