icheck.f

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

      Subroutine icheck( data, num, ok )
! ---------------------------------------------------------------------
! --- 'icheck' checks sort runs on Integer arrays.
! ---------------------------------------------------------------------
      Implicit   None

      Integer :: num, data(num)
      Logical :: ok

      Integer :: i
! ---------------------------------------------------------------------
      Do i = 2, num
         ok = ok .AND. ( data(i-1) <= data(i) )
      End Do
! ---------------------------------------------------------------------
      End Subroutine icheck