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

Reversed loop order for tallies in two routines for better caching.

Browse source
This commit is contained in:
Paul Romano 2012-02-20 17:36:10 -05:00
parent 79de4b6463
commit 80c00b25a4
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/tally.F90
View file

@ -1070,8 +1070,8 @@ contains
t => tallies(i)
! Loop over all filter and scoring bins
do j = 1, t % n_total_bins
do k = 1, t % n_score_bins
do k = 1, t % n_score_bins
do j = 1, t % n_total_bins
! Add the sum and square of the sum of contributions from each
! history within a cycle to the variables val and val_sq. This will
! later allow us to calculate a variance on the tallies
@ -1491,8 +1491,8 @@ contains
do i = 1, n_tallies
t => tallies(i)
do j = 1, t % n_total_bins
do k = 1, t % n_score_bins
do k = 1, t % n_score_bins
do j = 1, t % n_total_bins
! Copy values from tallies
val = t % scores(j,k) % val
val2 = t % scores(j,k) % val_sq