From 53434692fab05ee5f4148c9051e520df3cd834a8 Mon Sep 17 00:00:00 2001
From: Brody Bassett <brbass@umich.edu>
Date: Sat, 9 Dec 2017 18:04:02 -0500
Subject: [PATCH] Removed reversal of energy bins in multigroup mode to agree
 with energy bin search in source.

---
 src/input_xml.F90                   | 5 -----
 src/tallies/tally_filter_energy.F90 | 2 +-
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/input_xml.F90 b/src/input_xml.F90
index 71ebe3ae6b..b7bc88e25d 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -4172,7 +4172,6 @@ contains
     integer :: n_libraries
     logical :: file_exists ! does mgxs.h5 exist?
     integer(HID_T) :: file_id
-    real(8), allocatable :: rev_energy_bins(:)
     character(len=MAX_WORD_LEN), allocatable :: names(:)
 
     ! Check if MGXS Library exists
@@ -4202,7 +4201,6 @@ contains
       num_delayed_groups = 0
     end if
 
-    allocate(rev_energy_bins(num_energy_groups + 1))
     allocate(energy_bins(num_energy_groups + 1))
 
     if (attribute_exists(file_id, "group structure")) then
@@ -4212,9 +4210,6 @@ contains
       call fatal_error("'group structure' attribute must exist!")
     end if
 
-    ! First reverse the order of energy_groups
-    energy_bins = energy_bins(num_energy_groups + 1:1:-1)
-
     allocate(energy_bin_avg(num_energy_groups))
     do i = 1, num_energy_groups
       energy_bin_avg(i) = HALF * (energy_bins(i) + energy_bins(i + 1))
diff --git a/src/tallies/tally_filter_energy.F90 b/src/tallies/tally_filter_energy.F90
index 7f96552800..b2498d4b5a 100644
--- a/src/tallies/tally_filter_energy.F90
+++ b/src/tallies/tally_filter_energy.F90
@@ -75,7 +75,7 @@ contains
     ! ordering of the library and tallying systems).
     if (.not. run_CE) then
       if (n == num_energy_groups + 1) then
-        if (all(this % bins == energy_bins(num_energy_groups + 1:1:-1))) &
+        if (all(this % bins == energy_bins)) &
              then
           this % matches_transport_groups = .true.
         end if