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

Fixed OpenMP for score_general

Browse source
This commit is contained in:
Sterling Harper 2015-04-13 16:42:05 -04:00
parent f63c3461d7
commit 37e00a484f
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/tally.F90
View file

@ -55,13 +55,12 @@ contains
real(8) :: atom_density_ ! atom/b-cm
real(8) :: f ! interpolation factor
real(8) :: score ! analog tally score
real(8) :: score_ ! analog tally score
real(8) :: macro_total ! material macro total xs
real(8) :: macro_scatt ! material macro scatt xs
real(8) :: uvw(3) ! particle direction
type(Material), pointer, save :: mat => null()
type(Reaction), pointer, save :: rxn => null()
!$omp threadprivate(t, mat, rxn)
!$omp threadprivate(mat, rxn)
i = 0
SCORE_LOOP: do q = 1, t % n_user_score_bins