diagsk.f

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

      Subroutine diagsk( n, a, diag, offset )
! ----------------------------------------------------------------------
! --- diagsk determines whether diag is in a(n) where a(n) is a 
!     sorted array of integers. Because n is small (<= 1000) a(n)
!     is simply linearly traversed. When diag is in a(n), offset
!     is the index where it was found, if not,
!     offset = largest index < diag.
! ----------------------------------------------------------------------
      Integer :: n
      Integer :: a(n), offset, diag
! ----------------------------------------------------------------------
      offset = 0
      Do i = 1, n
         If ( a(i) >= diag ) Then
            offset = i - 1
            Exit
         End If
      End Do
! ----------------------------------------------------------------------
      End Subroutine diagsk