C FFTIN9.FOR C LINKING: C FFTIN9=FFTIN9/F,FTMUL9,BUTMUS,CTORS INTEGER X(1024),Y(1024) COMMON /XX/X,Y N=512 XN2=N/2-1 XN=N PI=3.1415926 Z=2.**14-1. DO 1 J=1,N XJ=J-1 X(2*J-1)=Z*.5*(COS(2.*PI*XJ/XN)+.3*SIN(2.*PI*XN2*XJ/XN))+.5 1 X(2*J)=0. CALL FTMUL9 DO 2 J=1,N JJ=2*J-1 WRITE(7,3) JJ,Y(2*J-1),Y(2*J) 3 FORMAT(1X,I7,8X,2(I7,2X)) 2 CONTINUE C C TEST OF CTOR DO 5 J=1,N XJ=J-1 X(2*J-1)=Z*.5*(COS(2.*PI*XJ/XN)+.3*SIN(2.*PI*XN2*XJ/XN))+.5 5 X(2*J)=Z*.5*(SIN(2.*PI*XJ/XN)+.3*COS(2.*PI*XN2*XJ/XN))+.5 CALL FTMUL9 CALL CTORS(N) DO 6 J=1,N WRITE(7,7) J,X(J),Y(J) 7 FORMAT(1X,I7,8X,2(I7,3X)) 6 CONTINUE STOP END