Tweaks to jt9code.

Fix reports generated by double-click on callsign.
Collapse consecutive spaces in message to a single space.
Look at best element in ccfred first; then zap nearby ones; then repeat.
Display sqrt(red(i)) in waterfall.
Step by 4 (or 2) in peakdt9, then zero in on the peak.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2733 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor
2012-11-15 16:34:14 +00:00
parent 0176cf04d2
commit 3c6809c409
6 changed files with 97 additions and 34 deletions
+8 -2
View File
@@ -7,17 +7,23 @@
character*12 c1,c2
character*4 c3
character*6 grid6
c character*3 dxcc !Where is DXCC implemented?
logical text1,text2,text3
C Convert all letters to upper case
do i=1,22
if(msg(i:i).ge.'a' .and. msg(i:i).le.'z')
+ msg(i:i)= char(ichar(msg(i:i))+ichar('A')-ichar('a'))
if(msg(i:i).ne.' ') iz=i
enddo
do iter=1,5 !Collapse multiple blanks into one
ib2=index(msg(1:iz),' ')
if(ib2.lt.1) go to 5
msg=msg(1:ib2)//msg(ib2+2:)
iz=iz-1
enddo
C See if it's a CQ message
if(msg(1:3).eq.'CQ ') then
5 if(msg(1:3).eq.'CQ ') then
i=3
C ... and if so, does it have a reply frequency?
if(msg(4:4).ge.'0' .and. msg(4:4).le.'9' .and.