From 29f6d506635470e39221fc539d8b0c8201938a80 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 7 Mar 2023 11:18:14 -0500
Subject: [PATCH] Correct a recently introduced flaw in q65sim, which broke
single-signal gereration.
---
lib/qra/q65/q65sim.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/qra/q65/q65sim.f90 b/lib/qra/q65/q65sim.f90
index 8007a55a9..51cf47954 100644
--- a/lib/qra/q65/q65sim.f90
+++ b/lib/qra/q65/q65sim.f90
@@ -154,8 +154,8 @@ program q65sim
nfstep=100*n
nf1=1500 - nfstep*(nsig-1)/2
do n=1,nsig
+ f0=f00
if(nsig.ge.2) then
- f0=f00
f0=nf1 + (n-1)*nfstep
itone=ntone(:,n)
endif