ANEW -testing_fftw

NEEDS -dynlibs

LINUX? [IF] Library: libfftw3.so 
     [ELSE] Library: libfftw3-3.dll
     [THEN]

Extern: fftw_plan "C" fftw_plan_dft_r2c_1d ( int n, double *in, fftw_complex *out, unsigned flags );
Extern: fftw_plan "C" fftw_plan_dft_c2r_1d ( int n, fftw_complex *in, double *out, unsigned flags );
Extern: void "C" fftw_destroy_plan ( fftw_plan plan );
Extern: void "C" fftw_execute ( fftw_plan plan );
Extern: int "C" fftw_import_system_wisdom ( void );
Extern: void fftw_cleanup ( void );

CREATE array1 1024 DFLOATS ALLOT
CREATE array2 1024 DFLOATS ALLOT
0 VALUE THEPLAN
: TEST
   512 array1 array2 0 fftw_plan_dft_r2c_1d TO THEPLAN
   array1 1024 DFLOATS ERASE	\ or do something else to fill real data
   THEPLAN fftw_execute
   THEPLAN fftw_destroy_plan 
   \ inspect data possibly
;
\ fftw_cleanup after testing
