ltrans.f

来自「网络带宽测试工具」· F 代码 · 共 20 行

      Subroutine ltrans ( n, m, a, t )
! ----------------------------------------------------
! --- 'ltrans' performs a local transpose. Input array
!     is 'a', output array is 't'.
! ----------------------------------------------------
      Use         numerics
      Implicit    None

      Integer  :: n, m
      Real(l_) :: a(n,m), t(m,n)
      Integer  :: i, j
! ----------------------------------------------------
      Do i = 1, m
         Do j = 1, n
            t(i,j) = a(j,i)
         End Do
      End Do
! ----------------------------------------------------
      End Subroutine ltrans