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

Removed add_bank_sites subroutine in source module.

Browse source
This commit is contained in:
Paul Romano 2011-09-13 22:33:18 -04:00
parent 3d79daebef
commit fc516d6347
1 changed files with 0 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/source.f90
View file

@ -136,30 +136,6 @@ contains
end function get_source_particle
!===============================================================================
! ADD_BANK_SITES
!===============================================================================
subroutine add_bank_sites(p, nuc, n)
type(Particle), pointer :: p
type(Nuclide), pointer :: nuc
integer, intent(in) :: n
integer :: i
if (n == 0 .or. n_bank == 3*n_particles) return
do i = n_bank + 1, min(n_bank + n, 3*n_particles)
! Copy particle data
fission_bank(i)%uid = p%uid
fission_bank(i)%xyz = p%xyz
! TODO: Sample angle and energy from secondary distribution
end do
n_bank = min(n_bank + n, 3*n_particles)
end subroutine add_bank_sites
!===============================================================================
! COPY_FROM_BANK
!===============================================================================