主题：[建议]建议增加傅里叶变换函数

#define GSCALERR(A,B)      ( *((unsigned long int *)(A)+1) = 0x7fffffff,*((unsigned long int *)(A)) = (B) )

#define abs(x) ((x) >= 0 ? (x) : -(x))
#define min(a,b) ((a) <= (b) ? (a) : (b))
#define max(a,b) ((a) >= (b) ? (a) : (b))
#define dmax(a,b) (double)max(a,b)

/**************************************************************************
**  
** Function Definitions
**
** A function definition is required for each set of three functions
*/

extern  double afft(double,double , double , double , double *,double *);
int _afftdll(double * ,double *, double *, double *, double *,double *);
/**************************************************************************/

/*
**  DIGAMMA
*/

int _afftdll(double *mode,double *npsd, double *npow2, double *t, double *w,double *xseg)
{
      double len;
/*    ----- call asm func "afft"------------------------------------------------------------  */
      len=afft(*mode, *npsd, *npow2, *t, w,xseg);
/*    ----- call asm func "afft"------------------------------------------------------------  */