mirror of
https://github.com/pavel-demin/ft8d.git
synced 2024-09-27 15:46:57 -04:00
set NFILT to 700 in subtractft8.f90
This commit is contained in:
parent
a882612409
commit
cbb3bb2344
@ -10,7 +10,7 @@ subroutine subtractft8(dd,itone,f0,dt)
|
|||||||
use timer_module, only: timer
|
use timer_module, only: timer
|
||||||
|
|
||||||
parameter (NMAX=15*4000,NFRAME=640*79)
|
parameter (NMAX=15*4000,NFRAME=640*79)
|
||||||
parameter (NFFT=NMAX,NFILT=1400)
|
parameter (NFFT=NMAX,NFILT=700)
|
||||||
real*4 window(-NFILT/2:NFILT/2)
|
real*4 window(-NFILT/2:NFILT/2)
|
||||||
complex dd(NMAX)
|
complex dd(NMAX)
|
||||||
complex cref,camp,cfilt,cw
|
complex cref,camp,cfilt,cw
|
||||||
|
Loading…
Reference in New Issue
Block a user