crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Whoops... left in a debug check from rejection sampling. cleaned it up

Browse source
This commit is contained in:
Adam Nelson 2016-02-13 14:06:48 -05:00
parent 2c4917bd3f
commit 03b433f8f3
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/scattdata_header.F90
View file

@ -375,9 +375,6 @@ contains
do
mu = TWO * prn() - ONE
f = this % calc_f(gin,gout,mu)
if (f > M) then
call fatal_error("Legendre exceeds Max Value!!!")
end if
if (f > ZERO) then
u = prn() * M
if (u <= f) then