w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix graymap.

This commit is contained in:
Steve Franke 2018-07-07 08:18:31 -05:00
parent 7e8c177034
commit 42f75bf404
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/ft8b_2.f90
View File

@ -44,7 +44,7 @@ subroutine ft8b_2(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly, &
data mde/1,1,1,1,1,1,1,1,0,1,1,0,0,1,0,0,0,0,0,1,1,1,0,1,0,0,0,1/
data mrr73/0,0,0,0,0,0,1,0,0,0,0,1,0,1,0,1/
data first/.true./
data graymap/0,1,3,2,7,6,4,5/
data graymap/0,1,3,2,5,6,4,7/
save nappasses,naptypes,one
if(first) then

2
lib/ft8/genft8_174_91.f90
View File

@ -13,7 +13,7 @@ subroutine genft8_174_91(msg,mygrid,bcontest,i3,n3,msgsent,msgbits,itone)
integer icos7(0:6)
integer graymap(0:7)
data icos7/3,1,4,0,6,5,2/ !Costas 7x7 tone pattern
data graymap/0,1,3,2,7,6,4,5/
data graymap/0,1,3,2,5,6,4,7/
call pack77(msg,i3,n3,c77)
call unpack77(c77,msgsent)