crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Removed trailing whitespace in input_xml.F90

Browse source
This commit is contained in:
Will Boyd 2015-11-08 17:56:42 -05:00
parent 3bbefb7169
commit 4b70c4abc1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/input_xml.F90
View file

@ -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