From de3c356391e21ead6b311d441213194b5f181003 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Wed, 10 Sep 2008 00:03:57 +0000
Subject: [PATCH] Moved test for full buffer.

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

diff --git a/map65.py b/map65.py
index 8f1a50f49..521ab23fe 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 7ed1ec984..3dfeec38c 100644
--- a/recvpkt.F90
+++ b/recvpkt.F90
@@ -55,6 +55,10 @@ subroutine recvpkt(iarg)
 
   if(transmitting.eq.1) ntx=1
 
+! Test for buffer full
+  if((kb.eq.1 .and. (k+174).gt.NSMAX) .or.                          &
+       (kb.eq.2 .and. (k+174).gt.2*NSMAX)) go to 20
+
 ! Check for lost packets
   lost=nblock-nblock0-1
   if(lost.ne.0) then
@@ -74,10 +78,6 @@ subroutine recvpkt(iarg)
   if(tdiff.lt.-30.) tdiff=tdiff+60.
   if(tdiff.gt.30.) tdiff=tdiff-60.
 
-! Test for buffer full
-  if((kb.eq.1 .and. (k+174).gt.NSMAX) .or.                          &
-       (kb.eq.2 .and. (k+174).gt.2*NSMAX)) go to 20
-
 ! Move data into Rx buffer and compute average signal level.
   sq=0.
   do i=1,174