Correct min value of i0a.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6580 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2016-04-05 18:28:17 +00:00
parent fd1c6daf51
commit 3dc2f1b6c8

View File

@ -15,12 +15,12 @@ subroutine softsym9w(id2,npts,xdt0,f0,width,nsubmode,xdt1,i1softsymbols)
df=12000.0/NFFT
! i0a=1
! i0b=5*12000
i0a=max(0.0,(xdt0-1.0)*12000.0)
i0a=max(1.0,(xdt0-1.0)*12000.0)
i0b=(xdt0+1.0)*12000.0
k1=nint((f0-0.5*width)/df)
k2=nint((f0+0.5*width)/df)
smax=0.
i0pk=0
i0pk=1
i1softsymbols=0
do i0=i0a,i0b,432