home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / fftlib / fft_compute.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-19  |  362 b   |  22 lines
  1. /*
  2. ### procedure for computing fft ###
  3. */
  4. #include <stdio.h>
  5.  
  6. void fft_compute(ftp)
  7. FILE *ftp;
  8. {
  9.     int i,isign=1; /* should be made to be external later */
  10.     double *fft_tmp;
  11.     extern int tser_len;
  12.     extern double *fft,*tser;
  13.  
  14.     for(i=0;i<tser_len;i++){
  15.         fft[i*2]=tser[i];
  16.         fft[i*2+1]=0;
  17.     }
  18.     fft_tmp = fft - 1;
  19.     four1(fft_tmp,tser_len,isign);
  20.     fft = fft_tmp + 1;
  21. }
  22.