comicsansg/ft8d
1
0
Fork 0
mirror of https://github.com/pavel-demin/ft8d.git synced 2025-04-04 02:28:34 -04:00
Code Issues Packages Projects Releases Wiki Activity

set NFILT to 700 in subtractft8.f90

Browse Source
This commit is contained in:
Pavel Demin 2018-04-02 21:09:25 +02:00
parent a882612409
commit cbb3bb2344
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
subtractft8.f90
View File

@ -10,7 +10,7 @@ subroutine subtractft8(dd,itone,f0,dt)
use timer_module, only: timer
parameter (NMAX=15*4000,NFRAME=640*79)
parameter (NFFT=NMAX,NFILT=1400)
parameter (NFFT=NMAX,NFILT=700)
real*4 window(-NFILT/2:NFILT/2)
complex dd(NMAX)
complex cref,camp,cfilt,cw