w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-29 12:12:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

Fix a bug that affected jt9 running from command line.

Browse Source
This commit is contained in:
Joe Taylor 2020-03-16 13:47:41 -04:00
parent 5e94de71fd
commit a2c3907b75
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/jt9.f90
View File

@ -308,23 +308,23 @@ program jt9
shared_data%params%nzhsym=nearly shared_data%params%nzhsym=nearly
id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456) id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456)
id2a(nearly*3456+1:)=0 id2a(nearly*3456+1:)=0
call multimode_decoder(shared_data%ss,id2a, & call multimode_decoder(shared_data%ipc(1),shared_data%ss,id2a, &
shared_data%params,nfsample) shared_data%params,nfsample)
nearly=47 nearly=47
shared_data%params%nzhsym=nearly shared_data%params%nzhsym=nearly
id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456) id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456)
id2a(nearly*3456+1:)=0 id2a(nearly*3456+1:)=0
call multimode_decoder(shared_data%ss,id2a, & call multimode_decoder(shared_data%ipc(1),shared_data%ss,id2a, &
shared_data%params,nfsample) shared_data%params,nfsample)
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=50
call multimode_decoder(shared_data%ss,id2a, & call multimode_decoder(shared_data%ipc(1),shared_data%ss,id2a, &
shared_data%params,nfsample) shared_data%params,nfsample)
cycle cycle
endif endif
! Normal decoding pass ! Normal decoding pass
call multimode_decoder(shared_data%ss,shared_data%id2, & call multimode_decoder(shared_data%ipc(1),shared_data%ss,shared_data%id2, &
shared_data%params,nfsample) shared_data%params,nfsample)
enddo enddo