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

Remove some unneeded code.

This commit is contained in:
Steven Franke 2020-08-04 11:56:32 -05:00 committed by Bill Somerville
parent 8b7db6556c
commit 6838a6b484
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
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
read(c77,'(77i1)') message77
message77=mod(message77+rvec,2)
call encode174_91(message77,cw)
apbits=2*cw-1
apbits(1:77)=2*message77-1
if(nohiscall) apbits(30)=99
10 continue