module logaritma
public::dog_log
contains
function dog_log(x) result(lnx)
real,intent(in)::x
real::lnx
real,parameter::e=2.718281828
lnx=log(x)/log(e)
return
end function dog_log
end module logaritma