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

lib/jt9code.f90

@@ -0,0 +1,35 @@
+program jt9code
+
+! Generate simulated data for testing of WSJT-X
+
+  parameter (NMAX=1800*12000)
+  character msg*22,msg0*22,decoded*22
+
+  integer*4 i4tone(85)             !Channel symbols (values 0-8)
+  integer*4 i4data(69)
+  integer*4 i4DataSymNoGray(69)    !Data Symbols, values 0-7
+  integer*1 i1ScrambledBits(207)   !Unpacked bits, scrambled order
+  integer*1 i1Bits(207)            !Encoded information-carrying bits
+  integer*1 i1SoftSymbols(207)
+  integer*1 i1
+  equivalence (i1,i4)
+  include 'jt9sync.f90'
+  common/acom/dat(NMAX),iwave(NMAX)
+
+  nargs=iargc()
+  if(nargs.ne.1) then
+     print*,'Usage: jt9code "message"'
+     go to 999
+  endif
+
+  call getarg(1,msg0)
+  write(*,1000) msg0
+1000 format('Message:',3x,a22)
+  msg=msg0
+  call genjt9(msg,decoded,i4tone)               !Encode message into tone #s
+  write(*,1002) i4tone
+1002 format('Channel symbols:'/(30i2))
+  write(*,1004) decoded
+1004 format('Decoded message:',1x,a22)
+
+999 end program jt9code