jswitch.f

网络带宽测试工具

      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