PROGRAM TSTFFT DIMENSION X(32),Y(32),B(34) DATA X/.22925607,.76687502,.68317685,.50919111, 1 .87455959,.64464101,.84746840,.35396343, 2 .39889160,.45709422,.23630936,.13318188, 3 .16605222,.22602680,.66245903,.25021175, 4 .61769668,.26246527,.51266762,.93920734, 5 .62402816,.42238195,.93970599,.28206823, 6 .46921754,.054879178,.51983086,.39682690, 7 .11315656,.60751725,.70150672,.88705479/ C DO 10 I=1,32 10 B(I) = X(I) WRITE (5,9998) (B(I),I=1,32) 9998 FORMAT(' Real Input Sequence'/8(1x,4e17.8/)) CALL FAST (B,32) WRITE (5,9997) (B(I),I=1,33,2) WRITE (5,9996) (B(I),I=2,34,2) 9997 FORMAT(' Real components of transform'/4(1x,4E17.8/),1X,E17.8/) 9996 FORMAT(' Imag components of transform'/4(1X,4E17.8/),1X,E17.8/) CALL FSST (B,32) WRITE (5,9995) (B(I),I=1,32) 9995 FORMAT(' Real Inverse Transform'/8(1x,4e17.8/)) CALL EXIT END