From 4b625eff5e1d87c4005ca6f78daa86437ab9d048 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Thu, 9 Nov 2017 21:22:37 +0000
Subject: [PATCH] Randomize the "R+rpt" report values.

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

diff --git a/lib/fox_rx.f90 b/lib/fox_rx.f90
index 0a11cd6ca..d08aaf7be 100644
--- a/lib/fox_rx.f90
+++ b/lib/fox_rx.f90
@@ -34,7 +34,9 @@ subroutine fox_rx(fail,called,fm,hm)
      i1=index(fm,';')+2
      i2=index(fm,'<')-2
      cx=fm(i1:i2)
-     write(hm,1004) MyCall,cx,isnrx
+     call random_number(r)
+     ireport=nint(-20+40*r)
+     write(hm,1004) MyCall,cx,ireport
 1004 format(a6,1x,a6,' R',i3.2)
      if(hm(16:16).eq.' ') hm(16:16)='+'
   endif