w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-04 23:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'feat-fst280' of bitbucket.org:k1jt/wsjtx into feat-fst280

Browse Source
This commit is contained in:
Joe Taylor 2020-08-04 13:44:01 -04:00
commit e719efd835
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/fst4_decode.f90
View File

@ -149,8 +149,7 @@ contains
if(i3.ne.1 .or. (msg.ne.msgsent) .or. .not.unpk77_success) go to 10 if(i3.ne.1 .or. (msg.ne.msgsent) .or. .not.unpk77_success) go to 10
read(c77,'(77i1)') message77 read(c77,'(77i1)') message77
message77=mod(message77+rvec,2) message77=mod(message77+rvec,2)
call encode174_91(message77,cw) apbits(1:77)=2*message77-1
apbits=2*cw-1
if(nohiscall) apbits(30)=99 if(nohiscall) apbits(30)=99
10 continue 10 continue