From 0e51ca70acfb3489095d76392e8a3deeff9293c9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 25 Mar 2016 18:19:25 +0000
Subject: [PATCH] Correct the value of "nadd" in avg65.

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

diff --git a/lib/jt65_decode.f90 b/lib/jt65_decode.f90
index ea63199f4..2f4c00628 100644
--- a/lib/jt65_decode.f90
+++ b/lib/jt65_decode.f90
@@ -391,33 +391,6 @@ contains
     enddo
     if(nsum.lt.2) go to 900
 
-!    rewind 62
-!    sqt=0.
-!    sqf=0.
-!    do j=1,64
-!       i=iused(j)
-!       if(i.eq.0) exit
-!       csync='*'
-!       if(nflipsave(i).lt.0) csync='#'
-!       write(62,3001) i,iutc(i),syncsave(i),dtsave(i),nfsave(i),csync
-!3001   format(i3,i6.4,f6.1,f6.2,i6,1x,a1)
-!       sqt=sqt + (dtsave(i)-dtave)**2
-!       sqf=sqf + (nfsave(i)-fave)**2
-!    enddo
-!    rmst=0.
-!    rmsf=0.
-!    if(nsum.ge.2) then
-!       rmst=sqrt(sqt/(nsum-1))
-!       rmsf=sqrt(sqf/(nsum-1))
-!    endif
-!    write(62,3002)
-!3002 format(16x,'----- -----')
-!    write(62,3003) dtave,nint(fave)
-!    write(62,3003) rmst,nint(rmsf)
-!3003 format(15x,f6.2,i6)
-!    flush(62)
-
-    nadd=nsum*mode65
     nftt=0
     df=1378.125/512.0
 
@@ -460,6 +433,7 @@ contains
           enddo
        enddo
 
+       nadd=nsum*ismo
        call extract(s3c,nadd,mode65,ntrials,naggressive,ndepth,mycall,    &
             hiscall,hisgrid,nexp_decode,ncount,nhist,avemsg,ltext,nftt,qual)
        if(nftt.eq.1) then