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

@@ -1,4 +1,4 @@
-#--------------------------------------------------------------------- MAP65
+#-------------------------------------------------------------------- MAP65
 # $Date$ $Revision$
 #
 from Tkinter import *

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