************************************************************************
      PROGRAM TESTCT
 
      IMPLICIT REAL*8(A-H,O-Z)
      PARAMETER(N=120,N2=2*N,M=1,L=N)
      DIMENSION IT(5),T(0:N-1,6)
      DIMENSION X(N2+1),Y(N2)

      CALL FTCTPR(N,IT,T)

      DO 10 I=1,N2+1
        X(I)=I
   10 CONTINUE
      
      CALL FTCTMN(X,Y,M,N,IT,T,1)
      CALL FTCTMN(X,Y,M,N,IT,T,-1)

      DO 20 I=1,N2+1
        WRITE(6,*) X(I)
   20 CONTINUE
 
      END
