From 4b70c4abc16714ecb1fe1cfff70912a1c0b93f16 Mon Sep 17 00:00:00 2001 From: Will Boyd Date: Sun, 8 Nov 2015 17:56:42 -0500 Subject: [PATCH] Removed trailing whitespace in input_xml.F90 --- src/input_xml.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 1ee2a060e9..df10d0f70e 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -2047,7 +2047,7 @@ contains end if ! Set ace or iso-in-lab scattering for each nuclide in element - do k = 1, n_nuc_ele + do k = 1, n_nuc_ele if (trim(adjustl(to_lower(temp_str))) == "iso-in-lab") then call list_iso_lab % append(1) else if (trim(adjustl(to_lower(temp_str))) == "ace") then