program ex2
implicit none

real(8) :: res
integer :: ir

res = 0.0d0

do ir=1, 10000
   res = res + 0.010d0
   write(*,*) ir , res
enddo

end program ex2
