Fast Fourier transform: Difference between revisions

Content added Content deleted
Line 368: Line 368:
contains
contains


! In place Cooley-Tookey FFT
! In place Cooley-Tukey FFT
recursive subroutine fft(x)
recursive subroutine fft(x)
complex(kind=dp), dimension(:), intent(inout) :: x
complex(kind=dp), dimension(:), intent(inout) :: x