w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-01 08:07:10 -04:00
Code Issues Packages Projects Releases Wiki Activity

A few more tweaks to Avg/Smo decoding in JT65. This stuff should

Browse Source 
probably be refactored!


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6525 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-03-11 17:03:41 +00:00
parent 07553fa117
commit 6980f8c44b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/jt65_decode.f90
View File

@ -157,7 +157,11 @@ contains
decoded0="" decoded0=""
freq0=0. freq0=0.
prtavg=.false. prtavg=.false.
nsum=0 if(.not.nagain) nsum=0
if(nclearave.eq.1) then
nsum=0
nsave=0
endif
do icand=1,ncand do icand=1,ncand
freq=ca(icand)%freq freq=ca(icand)%freq
@ -171,7 +175,6 @@ contains
sync2,a,dtx,nft,qual,nhist,nsmo,decoded) sync2,a,dtx,nft,qual,nhist,nsmo,decoded)
call timer('decod65a',1) call timer('decod65a',1)
if(nft.eq.1) nsum=1 if(nft.eq.1) nsum=1
! write(*,'("a",3i3,a6)') nft,nsum,nsmo,decoded(1:6)
! ncandidates=param(0) ! ncandidates=param(0)
nhard_min=param(1) nhard_min=param(1)
@ -203,7 +206,7 @@ contains
ndepth,ntrials,naggressive,nclearave,neme,mycall, & ndepth,ntrials,naggressive,nclearave,neme,mycall, &
hiscall,hisgrid,nftt,avemsg,qave,deepave,nsum,ndeepave) hiscall,hisgrid,nftt,avemsg,qave,deepave,nsum,ndeepave)
if (associated(this%callback)) then if (associated(this%callback) .and. nsum.ge.2) then
call this%callback(nutc,sync1,nsnr,dtx-1.0,nfreq,ndrift, & call this%callback(nutc,sync1,nsnr,dtx-1.0,nfreq,ndrift, &
avemsg,nftt,nqual,nsmo,nsum,minsync,nsubmode, & avemsg,nftt,nqual,nsmo,nsum,minsync,nsubmode, &
naggressive) naggressive)
@ -303,7 +306,7 @@ contains
nfsave=0 nfsave=0
dtdiff=0.2 dtdiff=0.2
first=.false. first=.false.
! s3a=0. s3b=0.
nsave=1 !### ??? nsave=1 !### ???
endif endif
nclearave=0 nclearave=0