Fix potential bug in sample_nuclide routine. Thanks to @mellis13 for reporting.

This commit is contained in:
Paul Romano 2015-06-24 16:18:37 +07:00
parent b5f71255a3
commit 04e2c1960b

View file

@ -142,7 +142,7 @@ contains
case ('total')
cutoff = prn() * material_xs % total
case ('scatter')
cutoff = prn() * material_xs % total - material_xs % absorption
cutoff = prn() * (material_xs % total - material_xs % absorption)
case ('fission')
cutoff = prn() * material_xs % fission
end select