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

@@ -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

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

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