From b5f9e0ff033e2f9846a0fa8abee159a04a0256d9 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 15 Feb 2023 15:50:26 -0500
Subject: [PATCH] Fix the starting frequency for multiple simulated signals.
---
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 f24cbc66f..433200d6b 100644
--- a/lib/qra/q65/q65sim.f90
+++ b/lib/qra/q65/q65sim.f90
@@ -152,7 +152,7 @@ program q65sim
n=65.0*baud*mode65/100.0 + 0.9999
nfstep=100*n
- nf1=1500 - nfstep*nsig/2
+ nf1=1500 - nfstep*(nsig-1)/2
do n=1,nsig
if(nsig.ge.2) then
f0=nf1 + (n-1)*nfstep