PRACE NPT

      Subroutine ltrans( m, n, ar, ai, wr, wi )

! -------------------------------------------------------------------

! --- 'ltrans' transposes the arrays 'ar(m,n)' and 'ai(m,n)' and

!     leaves them in the arrays 'wr(n,m)' and 'wi(n,m)'.

! -------------------------------------------------------------------

      Use         numerics

      Integer  :: m, n

      Real(l_) :: ar(m,n), ai(m,n), wr(n,m), wi(n,m)

      Integer  :: i

! -------------------------------------------------------------------

      Do i = 1, m

         wr(1:n,i) = ar(i,1:n)

         wi(1:n,i) = ai(i,1:n)

      End Do

! -------------------------------------------------------------------

      End Subroutine ltrans