Fix the starting frequency for multiple simulated signals.

This commit is contained in:
Joe Taylor 2023-02-15 15:50:26 -05:00
parent 6877a87fe4
commit b5f9e0ff03

View File

@ -152,7 +152,7 @@ program q65sim
n=65.0*baud*mode65/100.0 + 0.9999 n=65.0*baud*mode65/100.0 + 0.9999
nfstep=100*n nfstep=100*n
nf1=1500 - nfstep*nsig/2 nf1=1500 - nfstep*(nsig-1)/2
do n=1,nsig do n=1,nsig
if(nsig.ge.2) then if(nsig.ge.2) then
f0=nf1 + (n-1)*nfstep f0=nf1 + (n-1)*nfstep