From a1baaebee90906c22a76c4008c66b324251ba4a4 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sat, 12 Sep 2020 13:46:09 -0400 Subject: [PATCH] Decoder should reject data with rms < 3.0 over first 15 seconds. --- lib/decoder.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 3e5b2573d..0c4da1674 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -55,6 +55,10 @@ subroutine multimode_decoder(ss,id2,params,nfsample) type(counting_ft4_decoder) :: my_ft4 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 datetime=transfer(params%datetime, datetime) mycall=transfer(params%mycall,mycall) @@ -216,10 +220,6 @@ subroutine multimode_decoder(ss,id2,params,nfsample) go to 800 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? nadd=100 k=0