From 15c30a628d7382a1b06a203a86725a7e6a958fa5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 22 Nov 2016 19:24:01 +0000
Subject: [PATCH] Change the qra64sim default frequency for single signals to
 1000 Hz.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7334 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 lib/qra/qra64/qra64sim.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/qra/qra64/qra64sim.f90 b/lib/qra/qra64/qra64sim.f90
index 7ba68f899..e65fa3cf9 100644
--- a/lib/qra/qra64/qra64sim.f90
+++ b/lib/qra/qra64/qra64sim.f90
@@ -70,7 +70,7 @@ program qra64sim
      do isig=1,nsigs                 !Generate requested number of sigs
         if(mod(nsigs,2).eq.0) f0=1500.0 + dfsig*(isig-0.5-nsigs/2)
         if(mod(nsigs,2).eq.1) f0=1500.0 + dfsig*(isig-(nsigs+1)/2)
-        if(mode64.ge.8) f0=700.0
+        if(nsigs.eq.1) f0=1000.0
         xsnr=snrdb
         if(snrdb.eq.0.0) xsnr=-20 - isig