root / synthbench / euroben-dm / mod2i / .svn / text-base / dlog2.f.svn-base @ 0:839f52ef7657
History | View | Annotate | Download (507 Bytes)
| 1 |
Function dlog2( n ) Result( log2 ) |
|---|---|
| 2 |
! --------------------------------------------------------------------- |
| 3 |
Use numerics |
| 4 |
Integer :: n |
| 5 |
|
| 6 |
Real(l_), Parameter :: ln2 = 0.6931471805599453e0_l_ |
| 7 |
Real(l_) :: log2 |
| 8 |
! --------------------------------------------------------------------- |
| 9 |
log2 = Log( Real( n, l_ ) )/ln2 |
| 10 |
! --------------------------------------------------------------------- |
| 11 |
End Function dlog2 |