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

adapt subtractft8 to complex samples

Browse Source
This commit is contained in:
Pavel Demin 2018-04-01 09:16:54 +02:00
parent eac5bbb356
commit 88fceebb02
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
subtractft8.f90
View File

@ -11,7 +11,8 @@ subroutine subtractft8(dd,itone,f0,dt)
parameter (NMAX=15*12000,NFRAME=1920*79) parameter (NMAX=15*12000,NFRAME=1920*79)
parameter (NFFT=NMAX,NFILT=1400) parameter (NFFT=NMAX,NFILT=1400)
real*4 dd(NMAX), window(-NFILT/2:NFILT/2) real*4 window(-NFILT/2:NFILT/2)
complex dd(NMAX)
complex cref,camp,cfilt,cw complex cref,camp,cfilt,cw
integer itone(79) integer itone(79)
logical first logical first
@ -53,7 +54,7 @@ subroutine subtractft8(dd,itone,f0,dt)
! Subtract the reconstructed signal ! Subtract the reconstructed signal
do i=1,nframe do i=1,nframe
j=nstart+i-1 j=nstart+i-1
if(j.ge.1 .and. j.le.NMAX) dd(j)=dd(j)-2*REAL(cfilt(i)*cref(i)) if(j.ge.1 .and. j.le.NMAX) dd(j)=dd(j)-cfilt(i)*cref(i)
enddo enddo
return return