w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-12-23 19:25:37 -05:00
Code Issues Packages Projects Releases Wiki Activity

Correct a flaw in ft8_decode.f90 when there are no early decodes.

Browse Source
This commit is contained in:
Joe Taylor 2020-05-02 13:17:32 -04:00
parent aa2c965b85
commit 9f974b48e0
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft8_decode.f90
View File

@ -83,6 +83,10 @@ contains
else
ndecodes=ndec_early
endif
if(nzhsym.eq.47 .and. ndec_early.eq.0) then
dd1=dd
go to 800
endif
if(nzhsym.eq.47 .and. ndec_early.ge.1) then
lsubtracted=.false.
lrefinedt=.true.

3
lib/jt9.f90
View File

@ -316,9 +316,10 @@ program jt9
id2a(nearly*3456+1:)=0
call multimode_decoder(shared_data%ss,id2a, &
shared_data%params,nfsample)
nearly=50
id2a(nearly*3456+1:50*3456)=shared_data%id2(nearly*3456+1:50*3456)
id2a(50*3456+1:)=0
shared_data%params%nzhsym=50
shared_data%params%nzhsym=nearly
call multimode_decoder(shared_data%ss,id2a, &
shared_data%params,nfsample)
cycle