chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tweaking decoder, ensuring negative values are omitted

Browse Source
This commit is contained in:
Jordan Sherer
2019-11-12 09:34:54 -05:00
parent eada85c04d
commit d0d7aaa286
3 changed files with 29 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/decoder.f90
+12 -12
View File
@@ -88,12 +88,12 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
trydecode=.true.
! copy the relevant frames for decoding
pos = params%kposE
sz = params%kszE
pos = max(0,params%kposE)
sz = max(0,params%kszE)
id0=0
id0(1:sz+1)=id2(pos+1:pos+sz+1)
call my_js8e%decode(js8e_decoded,id0,params%nQSOProgress,params%nfqso, &
call my_js8e%decode(js8e_decoded,id0,params%nQSOProgress,params%nfqso, &
params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
params%nexp_decode,params%ndepth,logical(params%nagain), &
logical(params%lft8apon),logical(params%lapcqonly),params%napwid, &
@@ -108,12 +108,12 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
trydecode=.true.
! copy the relevant frames for decoding
pos = params%kposC
sz = params%kszC
pos = max(0,params%kposC)
sz = max(0,params%kszC)
id0=0
id0(1:sz+1)=id2(pos+1:pos+sz+1)
call my_js8c%decode(js8c_decoded,id0,params%nQSOProgress,params%nfqso, &
call my_js8c%decode(js8c_decoded,id0,params%nQSOProgress,params%nfqso, &
params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
params%nexp_decode,params%ndepth,logical(params%nagain), &
logical(params%lft8apon),logical(params%lapcqonly),params%napwid, &
@@ -128,12 +128,12 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
trydecode=.true.
! copy the relevant frames for decoding
pos = params%kposB
sz = params%kszB
pos = max(0,params%kposB)
sz = max(0,params%kszB)
id0=0
id0(1:sz+1)=id2(pos+1:pos+sz+1)
call my_js8b%decode(js8b_decoded,id0,params%nQSOProgress,params%nfqso, &
call my_js8b%decode(js8b_decoded,id0,params%nQSOProgress,params%nfqso, &
params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
params%nexp_decode,params%ndepth,logical(params%nagain), &
logical(params%lft8apon),logical(params%lapcqonly),params%napwid, &
@@ -148,12 +148,12 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
trydecode=.true.
! copy the relevant frames for decoding
pos = params%kposA
sz = params%kszA
pos = max(0,params%kposA)
sz = max(0,params%kszA)
id0=0
id0(1:sz+1)=id2(pos+1:pos+sz+1)
call my_js8a%decode(js8a_decoded,id0,params%nQSOProgress,params%nfqso, &
call my_js8a%decode(js8a_decoded,id0,params%nQSOProgress,params%nfqso, &
params%nftx,newdat,params%nutc,params%nfa,params%nfb, &
params%nexp_decode,params%ndepth,logical(params%nagain), &
logical(params%lft8apon),logical(params%lapcqonly),params%napwid, &