| [658] | 1 | #ifndef  FFTServ_H_SEEN
 | 
|---|
 | 2 | #define  FFTServ_H_SEEN
 | 
|---|
 | 3 | 
 | 
|---|
 | 4 | #include <complex>
 | 
|---|
 | 5 | #include "tvector.h"
 | 
|---|
 | 6 | 
 | 
|---|
 | 7 | class FFTServer{
 | 
|---|
 | 8 |  public:
 | 
|---|
 | 9 |   FFTServer();
 | 
|---|
 | 10 |   virtual ~FFTServer();
 | 
|---|
 | 11 |   virtual void fftf(int l, float* inout);
 | 
|---|
 | 12 |   virtual void fftb(int l, float* inout);
 | 
|---|
 | 13 |   virtual void fftf(int l, double* inout);
 | 
|---|
 | 14 |   virtual void fftb(int l, double* inout);
 | 
|---|
 | 15 |   virtual void fftf(int l, complex<float>* inout);
 | 
|---|
 | 16 |   virtual void fftb(int l, complex<float>* inout);
 | 
|---|
 | 17 |   virtual void fftf(int l, complex<double>* inout);
 | 
|---|
 | 18 |   virtual void fftb(int l, complex<double>* inout);
 | 
|---|
 | 19 |   virtual void fftf(Vector& in, Vector& out);
 | 
|---|
 | 20 |   virtual void fftb(Vector& in, Vector& out);
 | 
|---|
 | 21 | 
 | 
|---|
 | 22 |  protected:
 | 
|---|
 | 23 |   virtual void checkint_rfft(int l);
 | 
|---|
 | 24 |   virtual void checkint_dfft(int l);
 | 
|---|
 | 25 |   virtual void checkint_cfft(int l);
 | 
|---|
 | 26 |   virtual void checkint_cdfft(int l);
 | 
|---|
 | 27 | 
 | 
|---|
 | 28 |   int sz_rfft;
 | 
|---|
 | 29 |   float* ws_rfft;
 | 
|---|
 | 30 | 
 | 
|---|
 | 31 |   int sz_cfft;
 | 
|---|
 | 32 |   float* ws_cfft;
 | 
|---|
 | 33 | 
 | 
|---|
 | 34 |   int sz_dfft;
 | 
|---|
 | 35 |   double* ws_dfft;
 | 
|---|
 | 36 | 
 | 
|---|
 | 37 |   int sz_cdfft;
 | 
|---|
 | 38 |   double* ws_cdfft;
 | 
|---|
 | 39 | };
 | 
|---|
 | 40 | #endif
 | 
|---|
 | 41 | 
 | 
|---|
 | 42 | /*! \class FFTServer
 | 
|---|
 | 43 |  \brief An FFT server
 | 
|---|
 | 44 | 
 | 
|---|
 | 45 | A class that calculates Fourier transforms forwards and backwards.
 | 
|---|
 | 46 | 
 | 
|---|
 | 47 | The class calls the c library ``fftpack'', which is accessible and documented
 | 
|---|
 | 48 | at http://www.netlib.org/fftpack/.  However, the class functions do not
 | 
|---|
 | 49 | necessarily correspond with the equivalent fftpack function.  For example,
 | 
|---|
 | 50 | fftpack "forward" transformations are in fact inverse fourier transformations.
 | 
|---|
 | 51 | Otherwise, the output is in the fftpack format.
 | 
|---|
 | 52 | 
 | 
|---|
 | 53 | Complex input must be entered using the <complex> template.  Otherwise,
 | 
|---|
 | 54 | all input is assumed to be real.
 | 
|---|
 | 55 | 
 | 
|---|
 | 56 | Due to the way that fftpack manages
 | 
|---|
 | 57 | its work arrays, an object can run faster if the length of the input arrays
 | 
|---|
 | 58 | does not change.  For example, if you need to do a series of FFT's
 | 
|---|
 | 59 | of differing length, it may be more efficient to create an fftserver object
 | 
|---|
 | 60 | for each length.
 | 
|---|
 | 61 | */
 | 
|---|
 | 62 | 
 | 
|---|
 | 63 | /*! \fn virtual void FFTServer::fftf(int l, float* inout)
 | 
|---|
 | 64 |   \param l length of array
 | 
|---|
 | 65 |   \param inout input array /output forward FFT (original array destroyed)
 | 
|---|
 | 66 | */
 | 
|---|
 | 67 | /*! \fn virtual void FFTServer::fftb(int l, float* inout)
 | 
|---|
 | 68 |   \param l length of array
 | 
|---|
 | 69 |   \param inout input array /output backward FFT (original array destroyed)
 | 
|---|
 | 70 | */
 | 
|---|
 | 71 | /*! \fn virtual void FFTServer::fftf(int l, double* inout)
 | 
|---|
 | 72 |   \param l length of array
 | 
|---|
 | 73 |   \param inout input array /output forward FFT (original array destroyed)
 | 
|---|
 | 74 |   \param inout input/output array (original array destroyed)
 | 
|---|
 | 75 | */
 | 
|---|
 | 76 | /*! \fn virtual void FFTServer::fftb(int l, double* inout)
 | 
|---|
 | 77 |   \param l length of array
 | 
|---|
 | 78 |   \param inout input array /output backward FFT(original array destroyed)
 | 
|---|
 | 79 | */
 | 
|---|
 | 80 | /*!\fn  virtual void FFTServer::fftf(int l, complex<float>* inout)
 | 
|---|
 | 81 |   \param l length of array
 | 
|---|
 | 82 |   \param inout input array /output forward FFT (original array destroyed)
 | 
|---|
 | 83 | */
 | 
|---|
 | 84 | /*! \fn virtual void FFTServer::fftb(int l, complex<float>* inout)
 | 
|---|
 | 85 |   \param l length of array
 | 
|---|
 | 86 |   \param inout input array /output backward FFT (original array destroyed)
 | 
|---|
 | 87 | */
 | 
|---|
 | 88 | /*! \fn virtual void FFTServer::fftf(int l, complex<double>* inout)
 | 
|---|
 | 89 |   \param l length of array
 | 
|---|
 | 90 |   \param inout input array /output forward FFT (original array destroyed)
 | 
|---|
 | 91 | */
 | 
|---|
 | 92 | /*! \fn virtual void FFTServer::fftb(int l, complex<double>* inout)
 | 
|---|
 | 93 |   \param l length of array
 | 
|---|
 | 94 |   \param inout input array /output backward FFT(original array destroyed)
 | 
|---|
 | 95 | */
 | 
|---|
 | 96 | /*!\fn  virtual void FFTServer::fftf(Vector& in, Vector& out)
 | 
|---|
 | 97 |   \param in input array
 | 
|---|
 | 98 |   \param out forward FFT
 | 
|---|
 | 99 | */
 | 
|---|
 | 100 | /*! \fn virtual void FFTServer::fftb(Vector& in, Vector& out)
 | 
|---|
 | 101 |   \param in input array
 | 
|---|
 | 102 |   \param out backward FFT
 | 
|---|
 | 103 | */
 | 
|---|