gendat.f

网络带宽测试工具

      Subroutine gendat( a, b, m, n )
! ----------------------------------------------------------------------
! --- Routine 'gendat' generates matrix 'a' and vector 'b' for the
!     matrix-vector multiplication 'Ab = c'.
! ----------------------------------------------------------------------
      Use         numerics
      Implicit    None

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

      Integer  :: i
! ----------------------------------------------------------------------
      Do i = 1, m
         a(i,1:n) = Real( i, l_ )
      End Do
      b = 1.0_l_
! ----------------------------------------------------------------------
      End Subroutine gendat