SUBROUTINE ULFTDS(N,A,LDA,R,LDR)
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION A(LDA,N),R(LDR,N)
      CALL DLFTDS(N,A,LDA,R,LDR)
      DO 10 I=2,N
      DO 10 J=1,I-1
   10 R(I,J)=0.0D0
      RETURN
      END