gendat.f

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

      Subroutine gendat( a, b, m, l, n )
      Use         numerics
      Implicit    None

      Integer  :: m, l, n
      Real(l_) :: a(m,l), b(l,n), c(m,n)

      Integer  :: i, j, rowc
! ----------------------------------------------------------------------
      rowc = -m 
      Do j = 1, l
         rowc = rowc + m
         Do i = 1, m
            a(i,j) = rowc + i
         End Do
      End Do
      rowc = -l
      Do j = 1, n
         rowc = rowc + l
         Do i = 1, l
            b(i,j) = rowc + i
         End Do
      End Do
! ----------------------------------------------------------------------
      End Subroutine gendat