program Log_Test

implicit none

integer :: i
 real    :: x, e = 2.71828, lambda = 1.0
 
 x= 0
 do i = 1, 1000
   x=x + 0.01
   write(*,*) i, (e **(-1*(x*lambda)))
 enddo

end program Log_Test