mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-28 16:16:48 -04:00
Remove some unneeded code.
This commit is contained in:
parent
8b7db6556c
commit
6838a6b484
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user