diff --git a/src/tally.F90 b/src/tally.F90 index 007b65d315..14940551b7 100644 --- a/src/tally.F90 +++ b/src/tally.F90 @@ -22,10 +22,6 @@ module tally implicit none - integer :: position(N_FILTER_TYPES - 3) = 0 ! Tally map positioning array - -!$omp threadprivate(position) - procedure(score_general_), pointer :: score_general => null() procedure(score_analog_tally_), pointer :: score_analog_tally => null() @@ -2410,9 +2406,6 @@ contains ! Reset filter matches flag filter_matches(:) % bins_present = .false. - ! Reset tally map positioning - position = 0 - end subroutine score_analog_tally_ce subroutine score_analog_tally_mg(p) @@ -2558,9 +2551,6 @@ contains ! Reset filter matches flag filter_matches(:) % bins_present = .false. - ! Reset tally map positioning - position = 0 - end subroutine score_analog_tally_mg !=============================================================================== @@ -2956,9 +2946,6 @@ contains ! Reset filter matches flag filter_matches(:) % bins_present = .false. - ! Reset tally map positioning - position = 0 - end subroutine score_tracklength_tally !=============================================================================== @@ -3132,9 +3119,6 @@ contains ! Reset filter matches flag filter_matches(:) % bins_present = .false. - ! Reset tally map positioning - position = 0 - end subroutine score_collision_tally !===============================================================================