w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-10-30 12:30:23 -04:00
Code Issues Packages Projects Releases Wiki Activity

Do not process extremely strong signals in the wideband pass.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@614 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-12-28 22:05:12 +00:00
parent 1afbef982d
commit c8897fc0d2
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
map65.py
View File

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

5
map65a.F90
View File

@ -101,8 +101,12 @@ subroutine map65a(newdat)
enddo enddo
call pctile(tavg,tmp,101,50,base(jp)) call pctile(tavg,tmp,101,50,base(jp))
enddo enddo
bmax=max(base(1),base(2),base(3),base(4))
endif 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 ! Find max signal at this frequency
smax=0. smax=0.
do jp=1,4 do jp=1,4
@ -225,6 +229,7 @@ subroutine map65a(newdat)
endif endif
endif endif
endif endif
70 continue
enddo enddo
if(nqd.eq.1) then if(nqd.eq.1) then
nwrite=0 nwrite=0