From 7d4cc0094eb2dc885710d3691e4f52c3fd1e50a8 Mon Sep 17 00:00:00 2001 From: Adam Nelson Date: Tue, 6 Feb 2018 19:33:58 -0500 Subject: [PATCH] Fixing further misidentations --- src/nuclide_header.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/nuclide_header.F90 b/src/nuclide_header.F90 index 8bbf103e3e..c0c5c2627d 100644 --- a/src/nuclide_header.F90 +++ b/src/nuclide_header.F90 @@ -474,9 +474,9 @@ contains ! Add the reaction index to the scattering array if this is an inelastic ! scatter reaction if (MTs % data(i) /= N_FISSION .and. MTs % data(i) /= N_F .and. & - MTs % data(i) /= N_NF .and. MTs % data(i) /= N_2NF .and. & - MTs % data(i) /= N_3NF .and. MTs % data(i) < 200 .and. & - MTs % data(i) /= N_LEVEL .and. MTs % data(i) /= ELASTIC) then + MTs % data(i) /= N_NF .and. MTs % data(i) /= N_2NF .and. & + MTs % data(i) /= N_3NF .and. MTs % data(i) < 200 .and. & + MTs % data(i) /= N_LEVEL .and. MTs % data(i) /= ELASTIC) then call index_inelastic_scatter_vector % push_back(i) end if