diff --git a/src/criticality.F90 b/src/criticality.F90 index cc51d8f791..ce14b1210a 100644 --- a/src/criticality.F90 +++ b/src/criticality.F90 @@ -25,8 +25,12 @@ contains if (master) call header("CRITICALITY TRANSPORT SIMULATION", level=1) - tallies_on = .false. - call timer_start(time_inactive) + ! Start timer + if (tallies_on) then + call timer_start(time_active) + else + call timer_start(time_inactive) + end if ! Allocate particle allocate(p) diff --git a/src/global.F90 b/src/global.F90 index d2e3fb1655..4d3a11cefa 100644 --- a/src/global.F90 +++ b/src/global.F90 @@ -125,7 +125,7 @@ module global real(8) :: total_weight ! total starting particle weight in realization ! Flag for turning tallies on - logical :: tallies_on + logical :: tallies_on = .false. ! Assume all tallies are spatially distinct logical :: assume_separate = .false. diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 77ff0eb24e..c056d2cc90 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -158,6 +158,9 @@ contains call fatal_error() end if + ! Turn on tallies if no inactive batches + if (n_inactive == 0) tallies_on = .true. + ! Copy random number seed if specified if (seed_ > 0) seed = seed_