From 9e38f0ed9e38961de0e8fcb3e462fc251bd4a012 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 11 Mar 2016 17:03:41 +0000
Subject: [PATCH] A few more tweaks to Avg/Smo decoding in JT65.  This stuff
 should probably be refactored!

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6525 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/jt65_decode.f90 | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90
index f900064e9..484b6d108 100644
--- a/lib/jt65_decode.f90
+++ b/lib/jt65_decode.f90
@@ -157,7 +157,11 @@ contains
        decoded0=""
        freq0=0.
        prtavg=.false.
-       nsum=0
+       if(.not.nagain) nsum=0
+       if(nclearave.eq.1) then
+          nsum=0
+          nsave=0
+       endif
 
        do icand=1,ncand
           freq=ca(icand)%freq
@@ -171,7 +175,6 @@ contains
                sync2,a,dtx,nft,qual,nhist,nsmo,decoded)
           call timer('decod65a',1)
           if(nft.eq.1) nsum=1
-!          write(*,'("a",3i3,a6)') nft,nsum,nsmo,decoded(1:6)
 
 !          ncandidates=param(0)
           nhard_min=param(1)
@@ -203,7 +206,7 @@ contains
                      ndepth,ntrials,naggressive,nclearave,neme,mycall,      &
                      hiscall,hisgrid,nftt,avemsg,qave,deepave,nsum,ndeepave)
 
-                if (associated(this%callback)) then
+                if (associated(this%callback) .and. nsum.ge.2) then
                    call this%callback(nutc,sync1,nsnr,dtx-1.0,nfreq,ndrift,  &
                         avemsg,nftt,nqual,nsmo,nsum,minsync,nsubmode,       &
                         naggressive)
@@ -303,7 +306,7 @@ contains
        nfsave=0
        dtdiff=0.2
        first=.false.
-!       s3a=0.
+       s3b=0.
        nsave=1           !### ???
     endif
     nclearave=0