c@174: #include <stdio.h>
c@174: #include <stdlib.h>
c@174: #include <sys/times.h>
c@174: #include <unistd.h>
c@174: #include "kiss_fft.h"
c@174: #include "kiss_fftr.h"
c@174: #include "kiss_fftnd.h"
c@174: #include "kiss_fftndr.h"
c@174: 
c@174: #include "pstats.h"
c@174: 
c@174: static
c@174: int getdims(int * dims, char * arg)
c@174: {
c@174:     char *s;
c@174:     int ndims=0;
c@174:     while ( (s=strtok( arg , ",") ) ) {
c@174:         dims[ndims++] = atoi(s);
c@174:         //printf("%s=%d\n",s,dims[ndims-1]);
c@174:         arg=NULL;
c@174:     }
c@174:     return ndims;
c@174: }
c@174: 
c@174: int main(int argc,char ** argv)
c@174: {
c@174:     int k;
c@174:     int nfft[32];
c@174:     int ndims = 1;
c@174:     int isinverse=0;
c@174:     int numffts=1000,i;
c@174:     kiss_fft_cpx * buf;
c@174:     kiss_fft_cpx * bufout;
c@174:     int real = 0;
c@174: 
c@174:     nfft[0] = 1024;// default
c@174: 
c@174:     while (1) {
c@174:         int c = getopt (argc, argv, "n:ix:r");
c@174:         if (c == -1)
c@174:             break;
c@174:         switch (c) {
c@174:             case 'r':
c@174:                 real = 1;
c@174:                 break;
c@174:             case 'n':
c@174:                 ndims = getdims(nfft, optarg );
c@174:                 if (nfft[0] != kiss_fft_next_fast_size(nfft[0]) ) {
c@174:                     int ng = kiss_fft_next_fast_size(nfft[0]);
c@174:                     fprintf(stderr,"warning: %d might be a better choice for speed than %d\n",ng,nfft[0]);
c@174:                 }
c@174:                 break;
c@174:             case 'x':
c@174:                 numffts = atoi (optarg);
c@174:                 break;
c@174:             case 'i':
c@174:                 isinverse = 1;
c@174:                 break;
c@174:         }
c@174:     }
c@174:     int nbytes = sizeof(kiss_fft_cpx);
c@174:     for (k=0;k<ndims;++k)
c@174:         nbytes *= nfft[k];
c@174: 
c@174: #ifdef USE_SIMD        
c@174:     numffts /= 4;
c@174:     fprintf(stderr,"since SIMD implementation does 4 ffts at a time, numffts is being reduced to %d\n",numffts);
c@174: #endif
c@174: 
c@174:     buf=(kiss_fft_cpx*)KISS_FFT_MALLOC(nbytes);
c@174:     bufout=(kiss_fft_cpx*)KISS_FFT_MALLOC(nbytes);
c@174:     memset(buf,0,nbytes);
c@174: 
c@174:     pstats_init();
c@174: 
c@174:     if (ndims==1) {
c@174:         if (real) {
c@174:             kiss_fftr_cfg st = kiss_fftr_alloc( nfft[0] ,isinverse ,0,0);
c@174:             if (isinverse)
c@174:                 for (i=0;i<numffts;++i)
c@174:                     kiss_fftri( st ,(kiss_fft_cpx*)buf,(kiss_fft_scalar*)bufout );
c@174:             else
c@174:                 for (i=0;i<numffts;++i)
c@174:                     kiss_fftr( st ,(kiss_fft_scalar*)buf,(kiss_fft_cpx*)bufout );
c@174:             free(st);
c@174:         }else{
c@174:             kiss_fft_cfg st = kiss_fft_alloc( nfft[0] ,isinverse ,0,0);
c@174:             for (i=0;i<numffts;++i)
c@174:                 kiss_fft( st ,buf,bufout );
c@174:             free(st);
c@174:         }
c@174:     }else{
c@174:         if (real) {
c@174:             kiss_fftndr_cfg st = kiss_fftndr_alloc( nfft,ndims ,isinverse ,0,0);
c@174:             if (isinverse)
c@174:                 for (i=0;i<numffts;++i)
c@174:                     kiss_fftndri( st ,(kiss_fft_cpx*)buf,(kiss_fft_scalar*)bufout );
c@174:             else
c@174:                 for (i=0;i<numffts;++i)
c@174:                     kiss_fftndr( st ,(kiss_fft_scalar*)buf,(kiss_fft_cpx*)bufout );
c@174:             free(st);
c@174:         }else{
c@174:             kiss_fftnd_cfg st= kiss_fftnd_alloc(nfft,ndims,isinverse ,0,0);
c@174:             for (i=0;i<numffts;++i)
c@174:                 kiss_fftnd( st ,buf,bufout );
c@174:             free(st);
c@174:         }
c@174:     }
c@174: 
c@174:     free(buf); free(bufout);
c@174: 
c@174:     fprintf(stderr,"KISS\tnfft=");
c@174:     for (k=0;k<ndims;++k)
c@174:         fprintf(stderr, "%d,",nfft[k]);
c@174:     fprintf(stderr,"\tnumffts=%d\n" ,numffts);
c@174:     pstats_report();
c@174: 
c@174:     kiss_fft_cleanup();
c@174: 
c@174:     return 0;
c@174: }
c@174: