From abf019263dd753327120ee618a4347cd3f1eaa4a Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 19 Mar 2015 13:48:26 +0000
Subject: [PATCH] Bring jt9sim.f90 up to date.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@5078 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/jt9sim.f90 | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/lib/jt9sim.f90 b/lib/jt9sim.f90
index fc56e5c9c..0474a91a5 100644
--- a/lib/jt9sim.f90
+++ b/lib/jt9sim.f90
@@ -54,8 +54,8 @@ program jt9sim
   if(minutes.eq.30) nsps=252000
   if(nsps.eq.0) stop 'Bad value for minutes.'
 
-!  f0=1400.d0                         !Center frequency (Hz)
-  f0=3000.d0                         !Center frequency (Hz)
+  f0=1400.d0                         !Center frequency (Hz)
+!  f0=3000.d0                         !Center frequency (Hz)
 
 !  f0=1500.0
 !  if(minutes.eq.5)  f0=1100.
@@ -90,7 +90,7 @@ program jt9sim
      endif
 
      if(msg0.ne.'                      ') then
-        call genjt9(message,0,msgsent,i4tone,itext) !Encode message into tone #s
+        call genjt9(message,0,msgsent,i4tone,itype) !Encode message into tone #s
      endif
 
      rewind 12
@@ -99,7 +99,7 @@ program jt9sim
         if(msg0.eq.'                      ') then
            read(12,1004) message                !Use pre-generated message texts
 1004       format(a22)
-           call genjt9(message,msgsent,i4tone)
+           call genjt9(message,0,msgsent,i4tone,itype)
         endif
 
         f=f0
@@ -155,9 +155,7 @@ program jt9sim
         do i=1,206
            i4=-10
            if(i1Bits(i).eq.1) i4=10
-           i4=i4+128
-           if(i4.le.127) i1SoftSymbols(i)=i4
-           if(i4.ge.128) i1SoftSymbols(i)=i4-256
+           i1SoftSymbols(i)=i4
         enddo
         limit=1000
         call jt9fano(i1SoftSymbols,limit,nlim,msg)