From 2aa42f0414a0ef2811e15b5daf9283beff85b498 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Tue, 24 Feb 2015 20:19:04 +0000 Subject: [PATCH] Minor tweaks in JT9 decoder. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4989 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decjt9.f90 | 5 ++--- lib/decoder.f90 | 4 ++++ lib/symspec2.f90 | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lib/decjt9.f90 b/lib/decjt9.f90 index 78291e11c..397da000c 100644 --- a/lib/decjt9.f90 +++ b/lib/decjt9.f90 @@ -116,14 +116,13 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol, & !$omp critical(decode_results) ! serialize writes - see also jt65a.f90 write(*,1000) nutc,nsnr,xdt,nint(freq),msg +1000 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22) write(13,1002) nutc,nsync,nsnr,xdt,freq,ndrift,msg +1002 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT9') call flush(6) call flush(13) !$omp end critical(decode_results) -1000 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22) -1002 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT9') - iaa=max(1,i-1) ibb=min(NSMAX,i+22) fgood=f diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 966d94e87..7dfe64a1e 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -17,6 +17,10 @@ subroutine decoder(ss,id2) !$omp threadprivate(/tracer_priv/) save + rms=sqrt(dot_product(float(id2(300000:310000)), & + float(id2(300000:310000)))/10000.0) + if(rms.lt.2.0) go to 800 + nfreqs0=0 nfreqs1=0 ndecodes0=0 diff --git a/lib/symspec2.f90 b/lib/symspec2.f90 index f8dc7cda5..f4bad2627 100644 --- a/lib/symspec2.f90 +++ b/lib/symspec2.f90 @@ -34,7 +34,7 @@ subroutine symspec2(c5,nz3,nsps8,nspsd,fsample,freq,drift,snrdb,schk, & enddo call chkss2(ss2,freq,drift,schk) - if(schk.lt.2.0) then + if(schk.lt.1.8) then i1SoftSymbolsScrambled=0 go to 900 endif