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

      CALL FTSMPR(N,IT,T)

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

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