************************************************************************
      SUBROUTINE FTRUPR(N,IT,T)
 
      IMPLICIT REAL  (A-H,O-Z)
      DIMENSION IT(5),T(0:N-1,4)

      CALL FTRLPR(N,IT,T)

      END
************************************************************************
      SUBROUTINE FTRUMN(X,Y,M,N,L,IT,T,ISN)
 
      IMPLICIT REAL  (A-H,O-Z)
      DIMENSION IT(5),T(0:N-1,4)
      DIMENSION X(M,0:2*N-1),Y(M,0:N-1,2)

      DO 10 J=0,N-1
      DO 10 I=1,M
        Y(I,J,1)=X(I,2*J  )
        Y(I,J,2)=X(I,2*J+1)
   10 CONTINUE

      CALL FTRLMN(Y,X,M,N,L,IT,T,ISN)

      DO 20 J=0,N-1
      DO 20 I=1,M
        X(I,2*J  )=Y(I,J,1)
        X(I,2*J+1)=Y(I,J,2)
   20 CONTINUE

      END