w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

More code cleanup.

This commit is contained in:
Joe Taylor 2020-03-19 15:53:44 -04:00
parent fe33bcdd6c
commit 7cc81d800f
4 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/decoder.f90
View File

@ -37,9 +37,8 @@ subroutine multimode_decoder(ipc1,ss,id2,params,nfsample)
integer*2 id2(NTMAX*12000)
type(params_block) :: params
real*4 dd(NTMAX*12000)
real*8 tsec,tseq
character(len=20) :: datetime
character(len=12) :: mycall, hiscall, ctime
character(len=12) :: mycall, hiscall
character(len=6) :: mygrid, hisgrid
data ndec8/0/
save

1
lib/ft8_decode.f90
View File

@ -64,7 +64,6 @@ contains
integer itone_save(NN,MAX_EARLY)
real f1_save(MAX_EARLY)
real xdt_save(MAX_EARLY)
integer(c_int) :: ihsym
save s,dd,dd1,ndec_early,itone_save,f1_save,xdt_save,lsubtracted

8
lib/jt9.f90
View File

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

9
lib/jt9a.f90
View File

@ -61,19 +61,16 @@ subroutine jt9a()
local_params%nzhsym=nearly
id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456)
id2a(nearly*3456+1:)=0
call multimode_decoder(shared_data%ipc(1),shared_data%ss,id2a, &
local_params,12000)
call multimode_decoder(shared_data%ss,id2a,local_params,12000)
nearly=47
local_params%nzhsym=nearly
id2a(1:nearly*3456)=shared_data%id2(1:nearly*3456)
id2a(nearly*3456+1:)=0
call multimode_decoder(shared_data%ipc(1),shared_data%ss,id2a, &
local_params,12000)
call multimode_decoder(shared_data%ss,id2a,local_params,12000)
local_params%nzhsym=50
endif
! Normal decoding pass
call multimode_decoder(shared_data%ipc(1),shared_data%ss,shared_data%id2, &
local_params,12000)
call multimode_decoder(shared_data%ss,shared_data%id2,local_params,12000)
call timer('decoder ',1)