mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-29 07:28:54 -04:00
Correct a recently introduced flaw in q65sim, which broke single-signal gereration.
This commit is contained in:
parent
e9f43cf0ef
commit
29f6d50663
@ -154,8 +154,8 @@ program q65sim
|
|||||||
nfstep=100*n
|
nfstep=100*n
|
||||||
nf1=1500 - nfstep*(nsig-1)/2
|
nf1=1500 - nfstep*(nsig-1)/2
|
||||||
do n=1,nsig
|
do n=1,nsig
|
||||||
|
f0=f00
|
||||||
if(nsig.ge.2) then
|
if(nsig.ge.2) then
|
||||||
f0=f00
|
|
||||||
f0=nf1 + (n-1)*nfstep
|
f0=nf1 + (n-1)*nfstep
|
||||||
itone=ntone(:,n)
|
itone=ntone(:,n)
|
||||||
endif
|
endif
|
||||||
|
Loading…
Reference in New Issue
Block a user