<*+ 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.