w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-03-31 16:38:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

Don't allow a decode attempt with previous data if TRperiod has increased.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-17 19:50:58 -05:00
parent 2aee8d9d62
commit a9bce0dbd3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/decoder.f90
View File

@ -51,7 +51,7 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
character(len=12) :: mycall, hiscall character(len=12) :: mycall, hiscall
character(len=6) :: mygrid, hisgrid character(len=6) :: mygrid, hisgrid
character*60 line character*60 line
data ndec8/0/ data ndec8/0/,ntr0/-1/
save save
type(counting_jt4_decoder) :: my_jt4 type(counting_jt4_decoder) :: my_jt4
type(counting_jt65_decoder) :: my_jt65 type(counting_jt65_decoder) :: my_jt65
@ -61,7 +61,8 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
type(counting_fst4_decoder) :: my_fst4 type(counting_fst4_decoder) :: my_fst4
type(counting_q65_decoder) :: my_q65 type(counting_q65_decoder) :: my_q65
nused=0 if(params%nagain .and. params%ntr.gt.ntr0) go to 800
ntr0=params%ntr
rms=sqrt(dot_product(float(id2(1:180000)), & rms=sqrt(dot_product(float(id2(1:180000)), &
float(id2(1:180000)))/180000.0) float(id2(1:180000)))/180000.0)
if(rms.lt.3.0) go to 800 if(rms.lt.3.0) go to 800