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

Pick closest angular distribution for law 61. Closes #98 on github.

Browse source
This commit is contained in:
Paul Romano 2012-07-28 18:21:52 -04:00
parent 8bb0a756c9
commit 85a60e2390
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/physics.F90
View file

@ -1950,8 +1950,12 @@ contains
E_out = E_1 + (E_out - E_i1_1)*(E_K - E_1)/(E_i1_K - E_i1_1)
end if
! Find location of correlated angular distribution
lc = int(edist % data(lc+3*NP+k))
! Find correlated angular distribution for closest outgoing energy bin
if (r1 - c_k < c_k1 - r1) then
lc = int(edist % data(lc + 3*NP + k))
else
lc = int(edist % data(lc + 3*NP + k + 1))
end if
! Check if angular distribution is isotropic
if (lc == 0) then