program dogal_logaritma
use logaritma
real::x,cikti
print*,"Dogal logaritmasinin hesaplanmasini istediginiz degeri giriniz:"
read*,x
cikti=dog_log(x)
print*,"ln(",x,")=",cikti
print*
end program dogal_logaritma