From 19e0ad921d77ee237d02fc7fcabc0865943c7725 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 19 Dec 2017 20:59:59 +0000
Subject: [PATCH] Updates to FT8 simulator, useful for testing DXped mode.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8352 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/ft8/ft8sim.f90 | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lib/ft8/ft8sim.f90 b/lib/ft8/ft8sim.f90
index 0daf22f54..dfe38efaa 100644
--- a/lib/ft8/ft8sim.f90
+++ b/lib/ft8/ft8sim.f90
@@ -46,7 +46,10 @@ program ft8sim
   call getarg(8,arg)
   read(arg,*) snrdb                      !SNR_2500
   nsig=1
-  if(f0.lt.100.0) nsig=f0
+  if(f0.lt.100.0) then
+     nsig=f0
+     f0=1500
+  endif
 
   bcontest=nfiles.lt.0
   nfiles=abs(nfiles)
@@ -87,6 +90,14 @@ program ft8sim
      c=0.
      do isig=1,nsig
         c0=0.
+        if(nsig.eq.2) then
+           if(index(msg,'R-').gt.0) f0=500
+           msg(9:9)=char(ichar('W')+isig)
+           if(isig.eq.2) then
+              f0=f0+100
+           endif
+           call genft8(msg,mygrid6,bcontest,i3bit,msgsent,msgbits,itone)
+        endif
         if(nsig.eq.25) then
            f0=(isig+2)*100.0
         else if(nsig.eq.50) then