crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Make sure system_clock uses high-resolution timer

Browse source
This commit is contained in:
Paul Romano 2016-09-30 14:47:16 -05:00
parent 513597a8e3
commit 17c678d9f8
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/timer_header.F90
View file

@ -13,7 +13,7 @@ module timer_header
type Timer
private
logical :: running = .false. ! is timer running?
integer :: start_counts = 0 ! counts when started
integer(8) :: start_counts = 0 ! counts when started
real(8), public :: elapsed = ZERO ! total time elapsed in seconds
contains
procedure :: start => timer_start
@ -44,13 +44,14 @@ contains
class(Timer), intent(in) :: self ! the timer
real(8) :: elapsed ! total elapsed time
integer :: end_counts ! current number of counts
integer :: count_rate ! system-dependent counting rate
integer(8) :: end_counts ! current number of counts
integer(8) :: count_rate ! system-dependent counting rate
real :: elapsed_time ! elapsed time since last start
if (self % running) then
call system_clock(end_counts, count_rate)
elapsed_time = real(end_counts - self % start_counts)/real(count_rate)
elapsed_time = real(end_counts - self % start_counts, 8) / &
real(count_rate, 8)
elapsed = self % elapsed + elapsed_time
else
elapsed = self % elapsed