Removed redundant call to find_energy_index.

This commit is contained in:
Paul Romano 2011-12-20 13:56:16 -05:00
parent 1602fe672a
commit a9fc06987e

View file

@ -2,7 +2,7 @@ module physics
use ace_header, only: Nuclide, Reaction, DistEnergy
use constants
use cross_section, only: calculate_xs, find_energy_index
use cross_section, only: calculate_xs
use endf, only: reaction_name, is_fission, is_scatter
use error, only: fatal_error, warning
use fission, only: nu_total, nu_prompt, nu_delayed
@ -198,9 +198,6 @@ contains
! Reset number of particles banked during collision
p % n_bank = 0
! find energy index, interpolation factor
call find_energy_index(p)
end subroutine collision
!===============================================================================