w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix indenting. No functional changes.

Browse Source
This commit is contained in:
Steve Franke 2019-03-30 16:40:24 -05:00
parent 68f82c95de
commit c7ec9b1927
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ft4/ft4_downsample.f90
View File

@ -40,8 +40,8 @@ subroutine ft4_downsample(iwave,newdata,f0,c)
c1=0. c1=0.
c1(0)=cx(i0) c1(0)=cx(i0)
do i=1,NFFT2/2 do i=1,NFFT2/2
if(i0+i.le.NMAX/2) c1(i)=cx(i0+i) if(i0+i.le.NMAX/2) c1(i)=cx(i0+i)
if(i0-i.ge.0) c1(NFFT2-i)=cx(i0-i) if(i0-i.ge.0) c1(NFFT2-i)=cx(i0-i)
enddo enddo
c1=c1*window/NFFT2 c1=c1*window/NFFT2
call four2a(c1,NFFT2,1,1,1) !c2c FFT back to time domain call four2a(c1,NFFT2,1,1,1) !c2c FFT back to time domain