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

Get rid of position variable in tally module

Browse source
This commit is contained in:
Paul Romano 2017-06-10 16:43:33 -05:00
parent 5cd9bc6065
commit 71b1c88f59
1 changed files with 0 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/tally.F90
View file

@ -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
!===============================================================================