w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 06:35:17 -04: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 else
ndecodes=ndec_early ndecodes=ndec_early
endif 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 if(nzhsym.eq.47 .and. ndec_early.ge.1) then
lsubtracted=.false. lsubtracted=.false.
lrefinedt=.true. lrefinedt=.true.

3
lib/jt9.f90
View File

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