1 module module_ffts 2 3 !--------------------------------------------------------------------------- 4 ! Purpose: Routines to perform Fourier transforms. 5 !--------------------------------------------------------------------------- 6 7 implicit none 8 9 contains 10 11 #include "fft551.inc" 12 #include "fft661.inc" 13 #include "qpassm.inc" 14 15 end module module_ffts