jswitch.f

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

      Integer Function jswitch( krit, index, j )
      Integer krit, index(*), j
! ---------------------------------------------------------------------
!
! --- JSWITCH delivers a value of 1 or 2, depending on the condition
!     of INDEX(J) being <= or > than KRIT.
!
      If (  index(j) <= krit  ) Then
          jswitch = 1
      Else
          jswitch = 2
      End If
! ---------------------------------------------------------------------
      End Function jswitch