Fortran 计算对数基数2

我使用的是Fortran 95和Silverfrost Plato，我需要计算以2为底的日志。既然内置的只有自然日志和base10，我们该怎么做呢

应用到您的案例中，这在Fortran中变成以下内容：

real function log2(x)
  implicit none
  real, intent(in) :: x

  log2 = log(x) / log(2.)
end function

real function log2(x)
  implicit none
  real, intent(in) :: x

  log2 = log(x) / log(2.)
end function