Protect against selecting data beyond upper frequency end of big FFT.

This commit is contained in:
Joe Taylor 2021-05-23 09:27:31 -04:00
parent 0fc609ce5f
commit c829eb1db8

View File

@ -68,7 +68,7 @@ subroutine q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,mousedf,ntol,xpol, &
k0=nint((ipk*df3-1000.0)/df)
if(nagain.eq.1) k0=nint((f_mouse-1000.0)/df)
if(k0.lt.nh .or. k0.gt.nfft1-nh) go to 900
if(k0.lt.nh .or. k0.gt.MAXFFT1-nfft2+1) go to 900
if(snr1.lt.1.5) go to 900 !### Threshold needs work? ###
fac=1.0/nfft2