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
This commit is contained in:
Joe Taylor
2015-02-24 20:19:04 +00:00
parent 4933a30546
commit 2aa42f0414
3 changed files with 7 additions and 4 deletions
+4
View File
@@ -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