dlog2.f

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

      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