C FFTIN4.FOR C LINKING: C FFTIN4=FFTIN4/F,FTMUL4,BUTMUS,CTORS INTEGER X(32),Y(32) COMMON /XX/X,Y N=16 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 FTMUL4 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 FTMUL4 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