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

Secondary particle weight multiplied by number of secondaries for (n,xn). Closes gh-4.

Browse source
This commit is contained in:
Paul Romano 2011-09-14 15:39:46 -04:00
parent 276e421d77
commit 36d42e87b9
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/physics.f90
View file

@ -691,7 +691,6 @@ contains
type(Nuclide), pointer :: nuc
type(Reaction), pointer :: rxn
integer :: i ! loop index
integer :: n_secondary ! number of secondary particles
integer :: law ! secondary energy distribution law
real(8) :: A ! atomic weight ratio of nuclide
@ -749,11 +748,9 @@ contains
! change energy of particle
p % E = E
! produce secondary particles in source bank
n_secondary = abs(rxn % TY) - 1
do i = 1, n_secondary
! TODO: create particle in source bank
end do
! change weight of particle based on multiplicity
n_secondary = abs(rxn % TY)
p % wgt = n_secondary * p % wgt
end subroutine n_xn