crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 06:05:58 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed bug with probability tables (default target velocity).

Browse source
This commit is contained in:
Paul Romano 2012-01-09 13:14:49 -05:00
parent c11cab0804
commit 83a803b83f
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/physics.F90
View file

@ -498,6 +498,8 @@ contains
! Sample velocity of target nucleus
if (.not. micro_xs(index_nuclide) % use_ptable) then
call sample_target_velocity(p, nuc, v_t)
else
v_t = ZERO
end if
! Velocity of center-of-mass