From a6d153d3949983dae42d51c5fbe632b52b31a4ef Mon Sep 17 00:00:00 2001 From: jingang Date: Wed, 9 Mar 2016 12:49:52 -0500 Subject: [PATCH] Remove unused variable --- src/cross_section.F90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/cross_section.F90 b/src/cross_section.F90 index cd22a8f055..2f2e7fd7e9 100644 --- a/src/cross_section.F90 +++ b/src/cross_section.F90 @@ -354,19 +354,17 @@ contains integer, intent(in) :: i_nuclide ! index into nuclides array real(8), intent(in) :: E ! energy - integer :: i ! loop index integer :: i_energy ! index for energy integer :: i_low ! band index at lower bounding energy integer :: i_up ! band index at upper bounding energy - integer :: same_nuc_idx ! index of same nuclide real(8) :: f ! interpolation factor real(8) :: r ! pseudo-random number real(8) :: elastic ! elastic cross section real(8) :: capture ! (n,gamma) cross section real(8) :: fission ! fission cross section real(8) :: inelastic ! inelastic cross section - type(UrrData), pointer :: urr - type(NuclideCE), pointer :: nuc + type(UrrData), pointer :: urr + type(NuclideCE), pointer :: nuc micro_xs(i_nuclide) % use_ptable = .true.