SUBROUTINE DTRNRR(NRA,NCA,A,LDA,NRB,NCB,B,LDB)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION A(LDA,*),B(LDB,*)
      DO 10 I=1,NCA
         DO 20 J=1,NRA
            B(I,J)=A(J,I)
 20         CONTINUE
 10         CONTINUE
      RETURN
      END