ログベースを計算する2

Question

私はベース2にログを計算する必要があるところで、Silverfrost Platoを使用してFortran 95を使用しています。組み込みのログに自然ログとベース10しかないので、どのようにしますか？

Answer 1

formula for changing the base of a logarithmがあなたのケースに

log_b(x) = log_k(x)/log_k(b) 

適用され、これはFortranで、次のようになります。

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

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