diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 19b269a820..0365dc0000 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -1346,6 +1346,12 @@ contains ! Any other case, e.g. U-235 Pu-239 allocate(t % nuclide_bins(n_words)) do j = 1, n_words + ! Check if total material was specified + if (words(j) == 'total') then + t % nuclide_bins(j) % scalar = -1 + cycle + end if + ! Check if xs specifier was given if (ends_with(words(j), 'c')) then word = words(j)