dcheck.f

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

      Subroutine dcheck( data, num, ok )
! ---------------------------------------------------------------------
! --- 'dcheck' checks sort runs on Real*8 arrays.
! ---------------------------------------------------------------------
      Implicit   None
      Integer :: num
      Real*8  :: data(num)
      Logical :: ok

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