fft.h

/* fft.h */
/* $Id: fft.h,v 1.5 2003/01/22 11:46:51 ibadm Exp $ */
#ifndef __fft_h
#define __fft_h

#ifdef GE_BUILD
typedef float Real4;
typedef double Real8;
typedef int Int4;
#else
#include <mix/Types.h>
#endif

#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */

  /*************************************************************
   *        ¿ÞÔßàÞÓàÐÜÜë ±¿Ä á ÝÞàÜØàÞÒÚÞÙ áÕÜÕÙáâÒÐ RFFT      *
   *                                                           *
   * ¿ÐàÐÜÕâàë:                                                *
   *  A    - ÚÞÜßÛÕÚáÝëÙ áßÕÚâà (IDIR=1 ÒëåÞÔ; IDIR=-1 ÒåÞÔ)   *
   *  X    - ÒÕéÕáâÒÕÝÝëÙ ÒÕÚâÞà (IDIR=1 ÒåÞÔ; IDIR=-1 ÒëåÞÔ)  *
   *  M    - ÑÛØÖÐÙèÐï Ú N áÒÕàåã áâÕßÕÝì ÔÒÞÙÚØ               *
   *  N    - ÚÞÛØçÕáâÒÞ ÞâáçÕâÞÒ Ò ÒÕéÕáâÒÕÝÝÞÜ ÒÕÚâÞàÕ X      *
   *  N05  - ÚÞÛØçÕáâÒÞ ÚÞÜßÛÕÚáÝëå ÞâáçÕâÞÒ Ò áßÕÚâàÕ A       *
   *  IDIR - ÝÐßàÐÒÛÕÝØÕ ßàÕÞÑàÐ×ÞÒÐÝØï: 1, -1                 *
   *************************************************************/

  /* ¾ÔØÝÐàÝÞÙ âÞçÝÞáâØ á ÝÞàÜØàÞÒÚÞÙ ßàØ ßàïÜÞÜ ßàÕÞÑàÐ×ÞÒÐÝØØ. */
  void  Fortran(rfftn)(Real4 A[/* 2*N05 */], Real4 X[/* N */],
               Int4* M, Int4* N, Int4* N05, Int4* IDIR);

  /* ¾ÔØÝÐàÝÞÙ âÞçÝÞáâØ á ÝÞàÜØàÞÒÚÞÙ ßàØ ÞÑàÐâÝÞÜ ßàÕÞÑàÐ×ÞÒÐÝØØ. */
  void  Fortran(rfftnm)(Real4 A[/* 2*N05 */], Real4 X[/* N */],
            Int4* M, Int4* N, Int4* N05, Int4* IDIR);

  /* ´ÒÞÙÝÞÙ âÞçÝÞáâØ á ÝÞàÜØàÞÒÚÞÙ ßàØ ßàïÜÞÜ ßàÕÞÑàÐ×ÞÒÐÝØØ. */
  void  Fortran(rfftnd)(Real8 A[/* 2*N05 */], Real8 X[/* N */],
            Int4* M, Int4* N, Int4* N05, Int4* IDIR);

  void  Fortran(drfftn)(double A[/* 2*N05 */], double X[/* N */],
            int* M, int* N, int* N05, int* IDIR);

  /* ´ÒãÜÕàÝÞÕ ÑëáâàÞÕ ßàÕÞÑàÐ×ÞÒÐÝØÕ ÄãàìÕ ÔÒÞÙÝÞÙ âÞçÝÞáâØ */
  void  Fortran (rdft2d) (int*, int*, int*, int*, double*, int*, double*);

  /* Complex Fourier transformation */
  void  Fortran (cdft2d) (int*, int*, int*, int*, double*, int*, double*);


  /* ±ëáâàÞÕ ßàÕÞÑàÐ×ÞÒÐÝØÕ ÄãàìÕ ÔÒÞÙÝÞÙ âÞçÝÞáâØ */
  void  Fortran (fourtd) (double*, int*, int*, int*, int*, double*);

#ifdef __cplusplus
};
#endif /* __cplusplus */

#endif /* fft.h */