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

      CALL FTZLPR(N,IT,T)

      END
************************************************************************
      SUBROUTINE FTZUMN(X,Y,M,N,IT,T,ISN)
 
      IMPLICIT REAL  (A-H,O-Z)
      DIMENSION IT(5),T(0:N-1,2)
      DIMENSION X(M,N,2),Y(M,N,2)
 
      F=1D0/N

      IF(ISN.EQ.1) THEN
        DO 10 J=1,N
        DO 10 I=1,M
          X(I,J,2)=-X(I,J,2)
   10   CONTINUE
        CALL FTZLMN(X,Y,M,N,IT,T)
        DO 20 J=1,N
        DO 20 I=1,M
          X(I,J,1)= X(I,J,1)*F
          X(I,J,2)=-X(I,J,2)*F
   20   CONTINUE
      ELSE IF(ISN.EQ.-1) THEN
        CALL FTZLMN(X,Y,M,N,IT,T)
      END IF

      END