mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-29 16:46:40 -04:00
Decoder should reject data with rms < 3.0 over first 15 seconds.
This commit is contained in:
parent
174893395b
commit
a1baaebee9
@ -55,6 +55,10 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
|
|||||||
type(counting_ft4_decoder) :: my_ft4
|
type(counting_ft4_decoder) :: my_ft4
|
||||||
type(counting_fst4_decoder) :: my_fst4
|
type(counting_fst4_decoder) :: my_fst4
|
||||||
|
|
||||||
|
rms=sqrt(dot_product(float(id2(1:180000)), &
|
||||||
|
float(id2(1:180000)))/180000.0)
|
||||||
|
if(rms.lt.3.0) go to 800
|
||||||
|
|
||||||
!cast C character arrays to Fortran character strings
|
!cast C character arrays to Fortran character strings
|
||||||
datetime=transfer(params%datetime, datetime)
|
datetime=transfer(params%datetime, datetime)
|
||||||
mycall=transfer(params%mycall,mycall)
|
mycall=transfer(params%mycall,mycall)
|
||||||
@ -216,10 +220,6 @@ subroutine multimode_decoder(ss,id2,params,nfsample)
|
|||||||
go to 800
|
go to 800
|
||||||
endif
|
endif
|
||||||
|
|
||||||
rms=sqrt(dot_product(float(id2(60001:61000)), &
|
|
||||||
float(id2(60001:61000)))/1000.0)
|
|
||||||
if(rms.lt.2.0) go to 800
|
|
||||||
|
|
||||||
! Zap data at start that might come from T/R switching transient?
|
! Zap data at start that might come from T/R switching transient?
|
||||||
nadd=100
|
nadd=100
|
||||||
k=0
|
k=0
|
||||||
|
Loading…
Reference in New Issue
Block a user