From 7a2a1afdc78b067aff7176f620e55a640b50f86a Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 31 Oct 2011 16:12:01 -0400 Subject: [PATCH] Removed n_absorption subroutine in physics module. --- src/physics.f90 | 20 -------------------- 1 file changed, 20 deletions(-) diff --git a/src/physics.f90 b/src/physics.f90 index 74f4d777e9..840c16c623 100644 --- a/src/physics.f90 +++ b/src/physics.f90 @@ -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