nrm2.f

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

      Function nrm2( n, x )                               Result( sum )
! ---------------------------------------------------------------------
      Use         numerics
      Use         floptime
      Implicit    None

      Integer  :: n
      Real(l_) :: x(n)

      Integer  :: i
      Real(l_) :: sum
! ---------------------------------------------------------------------
      sum = 0.0_l_
!$omp parallel do reduction(+:sum)
      Do i = 1, n
         sum = sum + x(i)*x(i)
      End Do
      flops = flops + 2*n                    ! --- Keep track of flops.
! ---------------------------------------------------------------------
      End Function nrm2