Extend red/orange sync curves to full width. Display navg on status bar.

This commit is contained in:
Joe Taylor
2021-01-16 12:21:13 -05:00
parent b343deb8cd
commit 397c31a62d
4 changed files with 25 additions and 12 deletions
+6 -4
View File
@@ -61,6 +61,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
type(counting_fst4_decoder) :: my_fst4
type(counting_q65_decoder) :: my_q65
nused=0
rms=sqrt(dot_product(float(id2(1:180000)), &
float(id2(1:180000)))/180000.0)
if(rms.lt.3.0) go to 800
@@ -205,8 +206,9 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
call timer('dec_q65 ',0)
call my_q65%decode(q65_decoded,id2,params%nutc,params%ntr, &
params%nsubmode,params%nfqso,params%ntol,params%ndepth, &
logical(params%nclearave),params%emedelay,mycall,hiscall, &
hisgrid,params%nQSOProgress,ncontest,logical(params%lapcqonly))
params%nfa,params%nfb,logical(params%nclearave), &
params%emedelay,mycall,hiscall,hisgrid,params%nQSOProgress, &
ncontest,logical(params%lapcqonly),navg0)
call timer('dec_q65 ',1)
go to 800
endif
@@ -363,8 +365,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
endif
if(params%nmode.ne.8 .or. params%nzhsym.eq.50 .or. &
.not.params%ndiskdat) then
write(*,1010) nsynced,ndecoded
1010 format('<DecodeFinished>',2i4)
write(*,1010) nsynced,ndecoded,navg0
1010 format('<DecodeFinished>',3i4)
call flush(6)
endif
close(13)