(FILECREATED " 2-Aug-85 17:41:50" ("compiled on " {ERIS}ARRAY>CMLFLOATARRAY.;2) "23-Jul-85 01:45:24" tcompl'd in "INTERLISP-D 23-Jul-85 ..." dated "23-Jul-85 01:58:14") (FILECREATED " 2-Aug-85 17:39:53" {ERIS}ARRAY>CMLFLOATARRAY.;2 44654 changes to: (VARS FFTREUSETABLE CMLFLOATARRAYCOMS) (MACROS MKARRAY? SMALLARRAYP FARRAYP) (FNS MAPARRAY1 2DFFT MAPARRAY2 2DTRANS-1 2DTRANS MAPARRAY 2DMMUL \BLKEXPONENT \BLKFLOATP2COMP \BLKMAG \BLKPERM \BLKSEP \BLKSMALLP2FLOAT \PILOTBITBLT PUT.COLUMN.BBT GET.COLUMN.BBT MMUL ARRAYBASE DUMMYX) (PROPS (FFT ARGNAMES) (FARRAYP PUTPROPS) (MAPARRAY ARGNAMES)) previous date: "29-Jul-85 12:47:01" {ERIS}CMLFFT>CMLFLOATARRAY.;1) MAPARRAY D1 (P 30Q ELEMENT P 26Q RESULTBASE P 25Q ELEMENTS P 24Q INPUTS P 23Q IBASES P 17Q ARGNO P 15Q DIMS P 11Q ARGNO P 7 RESULT P 3 ARRAY1 P 2 MAPFN P 1 RESULT P 0 ARGS)  e@AB3HdlIJK lIJKC IK`K g K K O`O gO Hl2 OdOO ONa`Oa gOa _OOh__Ok_O&_d^NMMLMiho Hl2OdO"O HlK O gEOCa gOaOa_$O"O$h_"_ Ok_O$&_"OO*kjO0O.kO,O0dJO&O(kCO2O8 O0k_0_>O6O4O>O0dd_C=JgH` l  g_gH` l ]CLKOİZKgH` l  ggH` l gH` l LBd@(1277Q HARRAY 1244Q HARRAY 1220Q TYPENAME 1207Q HARRAY 1142Q HARRAY 1116Q TYPENAME 1105Q HARRAY 744Q HARRAY 655Q TYPENAME 632Q HARRAY 577Q HARRAY 553Q TYPENAME 542Q HARRAY 510Q HARRAY 455Q HARRAY 431Q TYPENAME 420Q HARRAY 366Q HARRAY 333Q HARRAY 307Q TYPENAME 276Q HARRAY 260Q FFT.INIT 243Q INTEGERLENGTH 236Q ERROR 225Q POWEROFTWOP 220Q ERROR 203Q ARRAYTYP 176Q ERROR 161Q ARRAYSIZE 150Q ARRAYSIZE 133Q TYPENAME 114Q ARRAY-ELEMENT-TYPE 107Q ERROR 72Q ARRAY-DIMENSION 60Q ARRAY-DIMENSION 47Q ERROR) (1310Q ARRAY 1302Q FFTREUSETABLE 1270Q FFTREUSETABLE 1264Q INVSCALE 1255Q ARRAYP 1247Q FFTREUSETABLE 1235Q FFTREUSETABLE 1231Q INVSCALE 1223Q ARRAYP 1212Q FFTREUSETABLE 1200Q FFTREUSETABLE 1174Q INVSCALE 1153Q ARRAYP 1145Q FFTREUSETABLE 1133Q FFTREUSETABLE 1127Q INVSCALE 1121Q ARRAYP 1110Q FFTREUSETABLE 1076Q FFTREUSETABLE 1072Q INVSCALE 1015Q FFTTABLE 756Q FFTTABLETYPE# 747Q FFTREUSETABLE 735Q FFTREUSETABLE 731Q FFTTABLE 725Q INVFFTTABLE 675Q ARRAY 666Q ARRAYP 660Q ARRAYP 643Q ARRAY 635Q FFTREUSETABLE 623Q FFTREUSETABLE 617Q FFTBUF2 610Q ARRAYP 602Q FFTREUSETABLE 570Q FFTREUSETABLE 564Q FFTBUF2 556Q ARRAYP 545Q FFTREUSETABLE 533Q FFTREUSETABLE 527Q FFTBUF2 521Q ARRAY 513Q FFTREUSETABLE 501Q FFTREUSETABLE 475Q FFTBUF1 466Q ARRAYP 460Q FFTREUSETABLE 446Q FFTREUSETABLE 442Q FFTBUF1 434Q ARRAYP 423Q FFTREUSETABLE 411Q FFTREUSETABLE 405Q FFTBUF1 377Q ARRAY 371Q FFTREUSETABLE 357Q FFTREUSETABLE 353Q SHUFFLE 344Q ARRAYP 336Q FFTREUSETABLE 324Q FFTREUSETABLE 320Q SHUFFLE 312Q ARRAYP 301Q FFTREUSETABLE 267Q FFTREUSETABLE 263Q SHUFFLE 206Q FLOATP 136Q ARRAYP 117Q SINGLE-FLOAT 31Q ARRAY 23Q ARRAYTYPE#) ( 232Q "Length has to be a power of two" 214Q "Array must be of type FLOATP" 172Q "Array to small" 126Q "Array must be of type FLOAT" 103Q "Array to small" 43Q "FFT only takes one dimensional arrays") FFT.GET.COLUMN.PILOTBBT D1 (I 0 CNT) `djdl@dl@dk NIL (2 PILOTBBTTYPE#) () FFT.INIT D1 (P 6 PAIR P 5 AL P 4 TMP2 P 3 TMP1 P 2 DBLE P 1 HALFARRAYLENGTH P 0 ARRAYLENGTH I 0 PASSES) Pk@ XdYHZg@` l @@`gM^@gH M` l  @`gM^@gJgojlJ [M` l  @`gM^f@gJgojlJ \M` l  @`gM^@gK gvKtK gAK?JgojlJ \JgojlJ [_H KL gLL@ 5KL gLL@ M` l  @`gM^@gK g>K