함수 호출에 관해서 질문이요~~

그렇게 했는데요.....
parse error numeric constant
이런에러가 뜨네요....ㅡ,.ㅡ;;;

이게 소스 인데요......fft(고속푸리에 변환) 소스 입니다...
이 소스를 분석해달라는게 아니구요......

def.c 코드에 보시면 main() 함수가 없자나요....
main 함수를 만들어야 하는데요.....
메인에서 fft 함수를 호출하도록이요.....
계속 이렇게도 해보고 저렇게도 해봤는데 에러가 나서요....
부탁드립니다..

============def.h=====================

typedef struct {

double real, imag;

} COMPLEX;

#define PI 3.141592
void fft(COMPLEX *,int);
void ifft(COMPLEX *,int);
void dft(COMPLEX *,COMPLEX *,int);
void idft(COMPLEX *,COMPLEX *,int);
void rfft(double *,COMPLEX *,int);
void ham(COMPLEX *,int);
void han(COMPLEX *,int);
void triang(COMPLEX *,int);
void black(COMPLEX *,int);
void harris(COMPLEX *,int);
int log2(unsigned int);

#include <math.h>
#include <stdlib.h>
#include <stdio.h>
#include "dft.h"

void fft(COMPLEX *x, int m)
{ 
   static COMPLEX *w;
   static int mstore = 0;
   static int n = 1;

   COMPLEX u,temp,tm;
   COMPLEX *xi,*xip,*xj,*wptr;
   int i,j,k,l,le,windex;
   double arg,w_real,w_imag,wrecur_real,wrecur_imag,wtemp_real;
   if(m != mstore) {
      if(mstore != 0) free(w);
         mstore = m;
         if(m == 0) return;
            n = 1 << m; 
            le = n/2;
            w = (COMPLEX *) calloc(le-1,sizeof(COMPLEX));
               if(!w) {
                  printf("\nUnable to allocate complex W array\n");
                  exit(1);
               }

               arg = PI/le;
               wrecur_real = w_real = cos(arg);
               wrecur_imag = w_imag = -sin(arg);
               xj = w;

               for (j = 1 ; j < le ; j++) {
                  xj->real = (double)wrecur_real;
                  xj->imag = (double)wrecur_imag;
                  xj++;
                  wtemp_real = wrecur_real*w_real - wrecur_imag*w_imag;
                  wrecur_imag = wrecur_real*w_imag + wrecur_imag*w_real;
                  wrecur_real = wtemp_real;
               }
         }

         le = n;
         windex = 1;
         for (l = 0 ; l < m ; l++) {
            le = le/2;
            for(i = 0 ; i < n ; i = i + 2*le) {
               xi = x + i;
               xip = xi + le;
               temp.real = xi->real + xip->real;
               temp.imag = xi->imag + xip->imag;
               xip->real = xi->real - xip->real;
               xip->imag = xi->imag - xip->imag;
               *xi = temp;
           }

           wptr = w + windex - 1;
           for (j = 1 ; j < le ; j++) {
              u = *wptr;
              for (i = j ; i < n ; i = i + 2*le) {
                 xi = x + i;
                 xip = xi + le;
                 temp.real = xi->real + xip->real;
                 temp.imag = xi->imag + xip->imag;
                 tm.real = xi->real - xip->real;
                 tm.imag = xi->imag - xip->imag; 
                 xip->real = tm.real*u.real - tm.imag*u.imag;
                 xip->imag = tm.real*u.imag + tm.imag*u.real;
                 *xi = temp;
            }
            wptr = wptr + windex;
       }
       windex = 2*windex;
       } 
       j = 0;
       for (i = 1 ; i < (n-1) ; i++) {
          k = n/2;
          while(k <= j) {
             j = j - k;
             k = k/2;
      }
      j = j + k;
      if (i < j) {
         xi = x + i;
         xj = x + j;
         temp = *xj;
        *xj = *xi;
        *xi = temp;
      }
   }
}