From a60107e9159eacf4589d285c40c13a6894063f8b Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 25 Jul 2008 10:58:31 +0000
Subject: [PATCH] Corrected tendency to decode twice on a fast computer.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@997 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 map65.py    | 2 +-
 recvpkt.F90 | 4 +++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/map65.py b/map65.py
index 905924e6c..5760bcf27 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#---------------------------------------------------------------------- MAP65
+#--------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/recvpkt.F90 b/recvpkt.F90
index 77fef5a6d..32f560124 100644
--- a/recvpkt.F90
+++ b/recvpkt.F90
@@ -45,6 +45,7 @@ subroutine recvpkt(iarg)
      if(ntx.eq.0) kb=3-kb
      k=(kb-1)*60*96000
      ndone1=0
+     ndone2=0
      ntx=0
      lost_tot=0
      kxp=k
@@ -117,9 +118,10 @@ subroutine recvpkt(iarg)
         endif
 
 ! See if it's time to start second stage of processing
-        if(ndone1.eq.1 .and. ns.ge.nt2) then
+        if(ndone1.eq.1 .and. ns.ge.nt2 .and.ndone2.eq.0) then
            kk=k
            nlost=lost_tot                         ! Save stats for printout
+           ndone2=1
         endif
      endif