dlog2.f

网络带宽测试工具

      Function dlog2( n )                        Result( log2 )
! ---------------------------------------------------------------------
      Use                    numerics
      Integer             :: n

      Real(l_), Parameter :: ln2 = 0.6931471805599453e0_l_
      Real(l_)            :: log2
! ---------------------------------------------------------------------
      log2  = Log( Real( n, l_ ) )/ln2
! ---------------------------------------------------------------------
      End Function dlog2