From c2df8d3e4a5c67721e1cc180a45f7bdc8eb7d4d0 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Mon, 14 Nov 2016 18:13:31 +0000 Subject: [PATCH] For submodes QRA64D and E, generate one signal at 700 Hz. git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@7314 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/qra/qra64/qra64sim.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/qra/qra64/qra64sim.f90 b/lib/qra/qra64/qra64sim.f90 index 43d90e7d1..3d77bced7 100644 --- a/lib/qra/qra64/qra64sim.f90 +++ b/lib/qra/qra64/qra64sim.f90 @@ -38,7 +38,8 @@ program qra64sim read(arg,*) nfiles call getarg(7,arg) read(arg,*) snrdb - + + if(mode64.ge.8) nsigs=1 rms=100. fsample=12000.d0 !Sample rate (Hz) dt=1.d0/fsample !Sample interval (s) @@ -69,6 +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 xsnr=snrdb if(snrdb.eq.0.0) xsnr=-20 - isig