mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-05-25 19:02:29 -04:00
22 lines
659 B
Fortran
22 lines
659 B
Fortran
subroutine sfox_ana(iwave,npts,c0,npts2)
|
|
|
|
use timer_module, only: timer
|
|
|
|
integer*2 iwave(npts) !Raw data at 12000 Hz
|
|
complex c0(0:npts2-1) !Complex data at 6000 Hz
|
|
save
|
|
|
|
nfft1=npts
|
|
! nfft2=nfft1/2
|
|
nfft2=nfft1
|
|
! df1=12000.0/nfft1
|
|
fac=2.0/(32767.0*nfft1)
|
|
c0(0:npts-1)=fac*iwave(1:npts)
|
|
call four2a(c0,nfft1,1,-1,1) !Forward c2c FFT
|
|
c0(nfft2/2+1:nfft2-1)=0. !Remove negative frequencies
|
|
c0(0)=0.5*c0(0) !Scale the DC term to 1/2
|
|
call four2a(c0,nfft2,1,1,1) !Inverse c2c FFT; c0 is analytic sig
|
|
|
|
return
|
|
end subroutine sfox_ana
|