Could someone, please, give a working example of Fast Fourier trasform in Fortran?