mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-22 12:23:37 -05:00
13 lines
167 B
FortranFixed
13 lines
167 B
FortranFixed
|
subroutine xfft(x,nfft)
|
||
|
|
|
||
|
|
C Real-to-complex FFT.
|
||
|
|
|
||
|
|
real x(nfft)
|
||
|
|
|
||
|
|
! call four2(x,nfft,1,-1,0)
|
||
|
|
call four2a(x,nfft,1,-1,0)
|
||
|
|
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|