From 88d53b164c0d64b027e5b91b0b42fad4974713e9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Fri, 28 Dec 2007 22:05:12 +0000
Subject: [PATCH] Do not process extremely strong signals in the wideband pass.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@614 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 map65.py   | 2 +-
 map65a.F90 | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/map65.py b/map65.py
index 2b7bca6e4..90a7581fa 100644
--- a/map65.py
+++ b/map65.py
@@ -1,4 +1,4 @@
-#--------------------------------------------------------------------- MAP65
+#-------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *
diff --git a/map65a.F90 b/map65a.F90
index 26c592f8d..2cea6a03b 100644
--- a/map65a.F90
+++ b/map65a.F90
@@ -101,8 +101,12 @@ subroutine map65a(newdat)
               enddo
               call pctile(tavg,tmp,101,50,base(jp))
            enddo
+           bmax=max(base(1),base(2),base(3),base(4))
         endif
 
+!  Do not process extremely strong signals
+        if(nqd.eq.0 .and. bmax.gt.500.0) go to 70
+
 !  Find max signal at this frequency
         smax=0.
         do jp=1,4
@@ -225,6 +229,7 @@ subroutine map65a(newdat)
               endif
            endif
         endif
+70      continue
      enddo
      if(nqd.eq.1) then
         nwrite=0