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

Removed n_absorption subroutine in physics module.

Browse source
This commit is contained in:
Paul Romano 2011-10-31 16:12:01 -04:00
parent 03c93af1da
commit 7a2a1afdc7
1 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/physics.f90
View file

@ -1250,26 +1250,6 @@ contains
end subroutine inelastic_scatter
!===============================================================================
! N_ABSORPTION handles all absorbing reactions, i.e. (n,gamma), (n,p), (n,a),
! etc.
!===============================================================================
subroutine n_absorption(p)
type(Particle), pointer :: p
integer :: cell_num ! user-specified cell number
p % alive = .false.
if (verbosity >= 10) then
cell_num = cells(p % cell)%uid
message = " Absorbed in cell " // trim(int_to_str(cell_num))
call write_message()
end if
end subroutine n_absorption
!===============================================================================
! SAMPLE_ANGLE samples the cosine of the angle between incident and exiting
! particle directions either from 32 equiprobable bins or from a tabular