<*+ CSTDLIB  *>
<*-NOHEADER *>
<*+ M2EXTENSIONS *>

DEFINITION MODULE ["C"] fftw;

TYPE Complex=RECORD
               Re,
               Im:REAL;
             END;

     INOUT=ARRAY OF Complex;
     pINOUT=POINTER TO INOUT;

PROCEDURE plan(n:CARDINAL):pINOUT;
PROCEDURE fft3();
PROCEDURE clean(VAR pinout:pINOUT);

END fftw.
