For now, at least, revert to NFILT=4000 in subtractft8.f90.

This commit is contained in:
Joe Taylor 2022-01-08 14:20:55 -05:00
parent 99861082f2
commit 500e565d77
1 changed files with 1 additions and 1 deletions

View File

@ -8,7 +8,7 @@ subroutine subtractft8(dd0,itone,f0,dt,lrefinedt)
! Subtract : dd(t) = dd(t) - 2*REAL{cref*cfilt}
parameter (NMAX=15*12000,NFRAME=1920*79)
parameter (NFFT=NMAX,NFILT=6500)
parameter (NFFT=NMAX,NFILT=4000)
real dd(NMAX),dd0(NMAX)
real window(-NFILT/2:NFILT/2)
real x(NFFT+2)