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