log2.f

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

      Integer Function log2( n )
! ---------------------------------------------------------------------
      Use                    numerics
      Implicit               None
      Integer             :: n

      Real(l_), Parameter :: ln2 = 0.6931471805599453_l_
! ---------------------------------------------------------------------
      log2  = Ceiling( Log( 1.0_l_*n )/ln2 )
! ---------------------------------------------------------------------
      End Function log2