From dc32bccfc35b476045d6f158c731e186c7fc0538 Mon Sep 17 00:00:00 2001 From: samuelshaner Date: Thu, 13 Jul 2017 09:39:26 -0400 Subject: [PATCH] fixed error in issuing particle filter warning --- src/input_xml.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 34b14cddec..82cbbe6632 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -4170,10 +4170,10 @@ contains select type(filt => filters(t % find_filter(FILTER_PARTICLE)) % obj) type is (ParticleFilter) do l = 1, filt % n_bins - if (filt % bins % data(l) /= NEUTRON) then + if (filt % particles(l) /= NEUTRON) then call warning("Particle filter other than NEUTRON used with & &photon transport turn off. All tallies for particle & - &type " // trim(to_str(filt % bins % data(l))) // " will have no scores") + &type " // trim(to_str(filt % particles(l))) // " will have no scores") end if end do end select