dcheck.f

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

      Subroutine dcheck( data, num, ok )
! ---------------------------------------------------------------------
! --- 'dcheck' checks sort runs on 8-byte Real arrays.
! ---------------------------------------------------------------------
      Use        numerics
      Implicit   None

      Integer  :: num
      Real(l_) :: data(num)
      Logical  :: ok

      Integer :: i
! ---------------------------------------------------------------------
      Do i = 2, num
         ok = ok .AND. ( data(i) - data(i-1) >= 0.0_l_ )
      End Do
! ---------------------------------------------------------------------
      End Subroutine dcheck