mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-10 07:16:45 -04: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
|
||
|
|