w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 21:58:38 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove some unneeded code.

Browse Source
This commit is contained in:
Steven Franke 2020-08-04 11:56:32 -05:00
parent 4225241720
commit 9b4b3a6623
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