diff --git a/lib/qra/qra64/qra64sim.f90 b/lib/qra/qra64/qra64sim.f90 index 7ba68f899..e65fa3cf9 100644 --- a/lib/qra/qra64/qra64sim.f90 +++ b/lib/qra/qra64/qra64sim.f90 @@ -70,7 +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 + if(nsigs.eq.1) f0=1000.0 xsnr=snrdb if(snrdb.eq.0.0) xsnr=-20 - isig